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This manual provides information concerning the Texas Instruments DX980 
General Purpose Operating System for use by programming personnel work- 
ing with the system. The information is divided into eight sections and four 
appendixes as follows: 


PREFACE 


I, INTRODUCTION - This section describes the operating system and 
its components to provide an overview of its capabilities, 


II, JOB CONTROL LANGUAGE - This section introduces the Job Con- 
trol Language used in the system and details the required parameters 
and formats of JCL commands, 


II, INPUT/OUTPUT STRUCTURE - This section explains the organiza- 
tion of I/O handling routines and lists the I/O Supervisor Calls. 


IV. DISC FILE MANAGEMENT - This section describes the storage of 
data in disc files and how the operating system controls that opera- 
tion, 

V. SUPERVISOR CALLS - This section lists and describes the super- 
visor calls available for programmer use, 
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component subsystems that handle batch processing for the system. 


VII, INTERACTIVE TERMINAL SUBSYSTEM - This section describes 
the operation of the subsystem that provides interactive communica- 
tion between the terminal users and the operating system. 


Vill, UTILITIES - This section describes the characteristics of the 
utility programs available for use with the operating system. 


A. ERROR MESSAGES - This appendix lists DX980 error messages 
and definitions. 


B. RECOMMENDED JCL SEQUENCES - This appendix provides sample 
listings of JCL sequences for the operating system. 


C. ADDING TO ITS - This appendix provides detailed descriptions of 
the Interactive Terminal Subsystem as an aid to adding new applica- 
tion programs to run under the subsystem. 


D. ADDING NON-STANDARD DEVICES TO DX980 - This appendix de- 
scribes the procedure for designing a device service routine to ser- 
vice a device not normally supplied with the operating system. 


re ——————— ———ew=———eeee 


iii Digital Systems Division 


° 
V0) seaesas 


An alphabetical index of key phrases also appears at the back of this manual. 
In addition to this manual the user should also have access to the following 
manuals that are referenced as applicable within the text of this manual: 


DX980 General Purpose Operating System, System Operator's Guide, 
Part Number 943004-9701 


Model 980 Computer, Basic System Use and Operation, Part Number 
961961-9710 


Model 980 Computer, Terminal User's Guide, Engineering Data, Part 
Number 943010-9701 


Model 980 Computer, Terminal User's Guide, Model 733 ASR/KSR Data 
Terminal, Part Number 943009-9701 


Model 980 Computer, Terminal User's Guide, Model 912 Video Display 
Terminal, Part Number 943014-9701 


Model 960 Computer and Model 980 Computer Debug User's Guide and 
Operating Instructions, Part Number 942760-9701 
Model 980 Computer FORTRAN, Part Number 944800-9701 


Model 980 Computer Assembly Language Input/Output, Part Number 
961961-9734 


Model 980 Computer Assembly Language Programmer's Reference 
Manual, Part Number 943013-9701 
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SECTION If 
INTRODUCTION 


GENERAL 


DX980 is a general purpose operating system that supports the Texas Instru- 
ments 980 Series minicomputers with major features that include the follow- 


ing: 


Interrupt driven device handlers 


Multiprogramming with biased addressing and protected memory 
bounds 


Flexible job management with complete resource allocation 
Comprehensive data management 

Dynamic memory management 

Priority scheduling of jobs and of tasks within jobs 


Subsystems to support batch and interactive terminal processing 


These system attributes augment computer performance for application in the 


g areas: 
g a 


Interactive information management systems that allow terminal 
devices to enter, retrieve and display data stored in an online disc 
information base. 


High speed, real-time computing systems that provide both analog 
and digital data acquisition, and that include control loops that re- 
quire the computational capacity of a 980 computer. 


Batch processing environments for program development, scientific 
data processing and business applications. 


Combinations of the above systems for specialized applications. 


1.2 HARDWARE REQUIREMENTS 


The operating system nucleus occupies approximately 24,000 words of main 
memory and requires the following additional system hardware: 


Additional memory for support of subsystems, language processors, 
and application programs. 


Either a moving head disc or a DS330 disc system. 


Magnetic tape drive to initially load the disc, to allow a dump of the 
disc contents for reloading, and to provide offline storage. 
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e Operator console for system interaction with the user. 
(Model 733 ASR terminal or equivalent) 


e Interval timer. 


1.3 HARDWARE EXPANSION 


In addition to the required hardware for operation of the system, DX980 sup- 
ports a full 64K word memory computer system. The modular construction 
of the system allows easy addition of new peripheral devices and their re- 
lated service routines. Standard device service routines include support for 
one or more of each of the following peripherals: 


e Texas Instruments Model 733 ASR Terminal, Part Number 
966645-0003 


e Texas Instruments Model 733 KSR Terminal, TI Part Number 
966671-0003 


e Teletype Model 33 ASR Teletypewriter, TI Part Number 
973346-0001 


e Texas Instruments Model 912 CRT display unit, TI Part Number 
973306-0012 


e High Speed Paper Tape Reader/Punch Combination, TI Part 
Number 973526-0003 


e High Speed Paper Tape Reader, TI Part Number 965946-0003 


e 132 Column I/O Bus Line Printer, TI Part Numbers 966792-0001 
and 966792-0011 


e 80 Column DMAC Line Printer, TI Part Number 217065-0001 
e Card Reader, TI Part Number 966323-0003 
® Analog-to-digital and digital-to-analog conversion equipment 


e DS330 Disc Controller and Disc Drive System, TI Part Numbers 
942541-0002, 942541-0003, 942541-0004, 942541-0005, and 
942541-0006. 


e Moving Head Disc, TI Part Number 955157-0001 
® Texas Instruments Model 979 Tape Transport, TI Part Number 
217536-0001 
1.4 SYSTEM STRUCTURE 


The operating system is divided into a nucleus for executive functions common 
to most operations, and several subsystems that perform specific functions. 
In addition to the nucleus, two subsystem modules are supplied with the 
standard operating system: the Interactive Terminal Subsystem (ITS) and the 
Batch Processing Subsystem (BPS). Figure 1-1 illustrates the relationship 
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Figure 1-1. DX980 General Structure 


of these subsystems to the nucleus. Other subsystems may also be added to 
perform functions suited to special applications. The following paragraphs 
describe the characteristics of the standard system components. 


1.4.1 NUCLEUS 


The nucleus is the portion of the operating system that defines the system 
parameters, handles input and output servicing, and provides real time 
reaction to the subsystems. The nucleus is divided into four main parts: the 
system table, the memory resident code, the procedure pool or system over- 
lay area, and a Dynamic System Control Area (DSCA). The real time fea- 
tures of the operating system are integrated into these areas and do not form 
a separate subsystem as do the Interactive Terminal Subsystem and the 
Batch Processing Subsystem. Real time features include rollin and rollout, 
task synchronization supervisor calls, dynamic device allocation, the ability 
to start other jobs via a supervisor call, and a method for controlling file up- 
dating with multiple online users. Most of the code for these features oc- 
cupies main memory only when in direct use and runs in the procedure pool. 


1.4.1.1 SYSTEM TABLE, The System Table describes the operating 
parameters of the system including: system job parameters, system wide 
control blocks, and pointers to system queues, the DSCA, procedure pool 
and free area. The table is created during system generation. 


1.4.1.2 MEMORY RESIDENT CODE. Memory resident code is that portion 
of the operating system that is always in main memory. This code performs 
the following functions in the DX980 system: interrupt processing, system 
disc device handling, task management, preliminary supervisor call process- 
ing, memory management, overlay management, and commonly used lower 
level system subroutines. 


1.4.1.3 PROCEDURE POOL. The procedure pool is a dynamically allo- 
cated memory area used for system overlays. Approximately 80% of the sys- 
tem routines run in this area. These routines include: device service rou- 
tines not handled by the memory resident code, job management, file 
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management, operator communications, and modules of rollin and rollout. 
The user can select the size of the procedure pool to adapt the amount of 
memory available to the operating speed required. 


1.4.1.4 DYNAMIC SYSTEM CONTROL AREA (DSCA). The DSCAis a 
volatile memory pool that is used by the procedure pool routines. Most of 
these routines are written in reentrant code. The DSCA provides a desig- 
nated work area for each task executing a procedure pool routine. The user 
can select the size of the DSCA. 


1.4.2 INTERACTIVE TERMINAL SUBSYSTEM (ITS) 


The Interactive Terminal Subsystem (ITS) provides simplified concurrent 
communications with several terminals. Included in ITS is the ITS Super- 
visor (ITSUPV) and the Interactive File Editor (IFE). ITSUPV manages the 
terminals, and provides LOGON and LOGOFF functions plus the required 
housekeeping functions for multi-terminal usage. ITSUPV interfaces easily 
with user written application programs. IFE provides interactive generation 
and editing of disc files containing source text. 


The ITS Supervisor initially checks the system's logical and physical device 
tables to derive a list of the terminals with which it can communicate (polling 
list). This list is based on the logical units assigned to the ITS at job start- 
up time. The ITS then assigns to each of the terminals on the list: 


® A buffer for data exchange with the terminal 
e A User Control Block 


The User Control Block contains pointers, flags, and a scratch pad memory 
space for use by application programs operating under ITS. One key param- 
eter in the control block indicates which body of code, or application pro- 
gram, is currently attached to the terminal. A single Command Table is 
available to ITSUPV for all terminals. The Command Table contains the 
names and entry points of the programs that can be run under ITS. After 
logging on, the terminal operator, through the ITS Supervisor, can select 
one of the programs in the Command Table for execution. Similarly, after 
completion of that program the operator can select another program. 


The ITS uses a Branch and Link command to pass the data exchange buffer 

to the selected application program. That program then processes the input 
and places any response to the terminal in the data exchange buffer. When 
the application program returns control to the ITS, the program may instruct 
the ITS to do any of the following operations: 


e Write the contents of the data exchange buffer on the corresponding 
terminal and return to the application program for more processing. 


e Write the contents of the data exchange buffer on the corresponding 
terminal, acquire a response from the terminal, and return for more 
processing. 


1-4 Digital Systems Division 


rig 943005-9701 


e Read input from the terminal and return for more processing. 


e Return for more processing as time becomes available without 
intervening I/O operations. 


e Discontinue use of this application program by the terminal and 
indicate readiness for the operator to select a new application pro- 
gram. 


1.4.3 BATCH PROCESSING SUBSYSTEM (BPS) 


The Batch Processing Subsystem (BPS) consists of three data handling sub- 
systems that allow convenient batch input and output for the operating sys- 
tem. The three data handling subsystems are Batch Input Reader (BIR), 
Batch Input Spooler (BIS) and Batch Output Spooler (BOS). Any of these sub- 
systems can be activated from the system console by addressing a RUN com- 
mand to the proper subsystem. 


1.4.3.1 BATCH INPUT READER (BIR). Specifying BIR causes the oper- 
ating system to activate the assigned card reader and read input directly 
from that device. 


1.4.3.2 BATCHINPUT SPOOLER (BIS). Specifying BIS instructs the op- 
erating ey eter to activate the assigned card reader, read input continuously 


Laan that An 
from that device, and copy the input data to a disc file (spooling). Process- 


ing can then proceed via the disc file (SYSIN) in parallel with the input oper- 
ation to increase throughput. 


1.4.3.3 BATCH OUTPUT SPOOLER (BOS). Specifying BOS instructs the 
operating system to access from the disc all data assigned to unit SYSOUT. 
The data is read from the disc and printed on the system output device | 
(usually a line printer). This feature allows data to be spooled on the disc 
during execution of a job by specifying the output unit as SYSOUT. When the 
output device becomes available, the operator can then activate BOS to dump 
the spooled data on that device. Use of BOS in this manner significantly in- 
creases throughput. 


1.5 INPUT/OQUTPUT MANAGEMENT 


User programs running under DX980 select I/O devices with a logical unit 
number (LUN) rather than a physical device number. A statement within 

the JCL input for the job equates the LUN to a physical device name, while 

a physical device table for the operating system specifies an actual I/O de- 
vice to respond to the physical device name. This arrangement ailows the 
I/O device assignments within the operating system and the logical unit num- 
bers within the user program to remain constant. A simple change to the 
JCL input allows the user to change the I1/O medium. The operating system 
includes a Device Service Routine (DSR) for each I/O device supported by the 
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monitor. Each DSR translates the common program I/O interface to the 
unique I/O interface required by its type of I/O device. The physical device 
table ties a particular I/O device to the DSR that services it. Additional 
DSRs can be added to the system to support new I/O devices without serious 
change to the system. 


1.6 MEMORY MANAGEMENT 


All of memory that is not occupied by the resident operating system, system 
tables, and the procedure pool is designated as a free area. The operating 
system dynamically allocates this area to subsystems and to user jobs. When 
a program is loaded into memory, the operating system stores it in contig- 
uous locations in a single partition within memory. It then loads the upper 
and lower bounds of that partition into the hardware memory protect address 
registers of the memory controller, and enables the hardware Priviledged 
Instruction Feature. All program parameters can then be referenced with a 
relative address with respect to the lower bound of the memory partition 
since the hardware automatically biases the addresses with the lower bound 
address. The operating system allocates memory partitions to particular 
jobs on a best fit basis. 


1.7 PROGRAM HANDLING 


Programs run under DX980 are performed as jobs; each job is further 
divided into tasks. The following paragraphs explain these concepts with 
respect to the operating system. 


litak wOBs 


A job is a unit of work in the DX980 system. A job consists of a set of user 
tasks to be executed and the control information to communicate resource 
requirements to the system. The system runs each job when all required 
resources become available. When a jobis complete, all allocated resources 
are returned to the system. They may then be allocated to another job as 
necessary. If the system has adequate resources, more than one job can be 
active at one instant. Each job competes for execution time on a priority 
basis. 


Jobs can be submitted to DX980 through the Batch Processing Subsystem 
(BPS), the Interactive Terminal Subsystem (ITS), the system console, or 
from another user job. The job submission procedure is the same regard- 
less of source. 


Once DX980 accepts the control information required to start a job, it places 
the information in a priority queue, called the job queue. Part of the job 
queue resides in main memory and part resides in a random access file on 
the system disc. As resources become available from jobs currently in 
execution, either through job termination or a specific request to release 
one or more resources, DX980 determines whether the additional resources 
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are sufficient to execute one of the jobs in the job queue. If so, the system 
changes that job's state from Ready to Running and starts the job. 


Each job in DX980 is requested with Job Control Language (JCL), and com- 
municates with the operating system using supervisor calls. A series of 
jobs may be combined into related job steps to perform a larger function, 
such as Compile, Link and Execute. In addition, a job may subdivide itself 
into two or more concurrently resident tasks. All user jobs run in protected 
mode and must remain within the memory bounds defined for that job. 


l.4ee “DASKS 


A task is a currently active program that coexists in memory with other con- 
current tasks, all of which may be in various stages of completion. One or 
more tasks combine to form a job. Tasks within a job may execute concur- 
rently and share the same reentrant body of code though each task is ina 
different state of execution. All jobs initiate as a single task. The initial 
task then issues supervisor calls to activate other tasks within its job area. 
Each separate task has its execution environment (register contents) and re- 
ceives a relative priority rank with other concurrent tasks. 


1.8 FILES 


A file is an organized collection of information. The file is divided into rec- 
ords that may be held in main memory while being used, but are stored on a 
disc when not being used. The following paragraphs describe the organiza- 
tion of files, the types of files available with the operating system, and the 
file handling features of the operating system. 


1.8.1 FILE ORGANIZATION 


Figure 1-2 illustrates the organization of files within a single disc unit for 
the DX980 operating system. The system locates a specific file with a three 
parameter entry supplied by the user. The<volume> parameter specifies the 
disc drive unit that contains the file, and allows the system to access the 
Master File Directory for that disc unit. The Master File Directory lists 
all of the User Directories that are stored on that disc unit, and the physical 
disc addresses used to locate each directory. A second parameter, < fileid>, 
tells the operating system which of the User Directories contains the file. 
The system then calls up the proper User Directory, which lists all of the 
files on the disc unit for that user, and their location on the disc. A third 
parameter, <filnam>, tells the operating system which of these files to ac- 


cess for the required information. 


Volume number 1 is always the system disc unit containing all of the oper- 
ating system files. Therefore, systems with only one disc unit must label 
that disc as volume 1. Within the Master File Directory for the system disc 
is an entry for the SYSTEM User Directory. This directory lists all of the 
files that are part of the operating system. One of these files, SJCBFL, 
contains the Job Control Language (output of the JCL Translator program) for 
the system. Another file, JCLSRC, is the JCL source file. 
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Figure 1-2. Organization of Data Files within a Disc Drive 


FILE HANDLING 


The operating system provides the user with the following features when 
working with files: 


File protection through both creator access and password entry; 
for either type of protection the user can specify whether it will be 
applicable for reading, writing or deleting, or any combination of 
those functions. 


Maintenance of several User Directories, so that files can be 
segregated in a multi-user environment. 
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e File mapping performed by the system can also be assisted by a 
user request for a specific physical location to store a file. 


e Specification of exclusive files for use by one job only, or of shared 
access files for concurrent use by more than one job. 


® Momentary cooperative locking of shared files during update to pre- 
vent degradation; this feature prevents one job from destroying a 
file update made by another job within an interactive information 
management system. 


e Blocking of multiple logical records into physical records for data 
transfer and storage; these blocked records are built and disas- 
sembled in buffer areas within the job extension area of main mem- 
Ory. 


1.8.3 TYPES OF FILES 


The operating system supports three types of files as outlined in the follow- 
ing statements: 


@ Linked Sequential File - The records of this file are scattered 
throughout the storage medium, but are chained together by pointers 
within the file. This arrangement requires that the record be ac- 
cessed in sequential order, but also allows the file to grow dynam- 
ically like a magnetic tape file. 


e Relative Record File - This type of file contains records of a speci- 
fied length that can be accessed randomly within the file by their 
relative position to the beginning of the file. Records are allocated 
in contiguous storage space. 


e Key Indexed File - This type of file assigns a key to each record 
that is to be accessed in a random fashion, and sorts the keys ina 


tree structure for efficient location of each record. The keyed 
records can then be stored in non-contiguous areas, allowing the 
file to grow dynamically. A key indexed file may also include non- 
keyed records that are accessed sequentially with keyed records. 
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SECTION II 
JOB CONTROL LANGUAGE 


2.1 GENERAL 


Job Control Language (JCL) specifies the structure and resource require- 
ments of jobs submitted to DX980. Other commands, used to request special 


action from DX980, are described in the DX980 General Purpose Operating 
System, System Operation Guide under the title of Operator Communications. 


2.2 JOB CONTROL LANGUAGE STRUCTURE 


Each job submitted to DX980 consists of one or more independent job steps 
that are executed in the order in which they appear inthe job stream. For 
example, if two job steps are submitted, they will be executed in the order 
of step one and then step two. If any step aborts because of an error condi- 
tion, all subsequent steps will not be executed. 


Job steps would normally be combined in such a way that the successful exe- 
cution of each step depends on the successful completion of all preceding 
steps. A common example is a sequence of four steps to compile (2 phases), 


link and execute a FORTRAN program. The link step would be started only 


if the compilation was successful, and the execution step would be started 
only if both the compilation and link were successful. 


Within the JCL statements for each step are assignment commands to asso- 
ciate Logical Unit Numbers (LUNs) specified in the user program with phy- 
sical devices or files. These commands allow the user to specify Input/ 


Output references logically when a program is created and defer the actual 


device assignments until the program is run (runtime). For most sequential 
devices the assignment command merely links a LUN to the device. Fora 
disc file, however, the user must specify the type of file to be assigned, 
whether the file is new, old or temporary, blocksize of the data records, 
and disposition of the file after termination of the job step. 


2.3 JCL PROCESSING 
There are two forms of Job Control Language (JCL): expanded JCL and 
abbreviated JCL. 

NOTE 


In the following discussion and throughout the man- 
ual, the term ''card image''is equivalent to ''source 
line image'' and is applicable to other input devices 
as well as a card reader. 
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2.3.1 EXPANDED JCL 


Expanded JCL can specify the structure of individual job steps, the location 
of the object program (load module) for each step, and the resources re- 
quired for each step. These specifications would normally be prepared once 
for each type of job (e.g., FORTRAN compile, link, and execute) and saved 
on a disc file for subsequent retrieval. Saving the JCL in card image form 
requires reprocessing each time it is retrieved. To avoid this reprocessing, 
DX980 saves the JCL ina binary form by passing the card images through a 
program that produces a savable binary image. Thereafter, the binary 
images can be processed on subsequent retrievals. The utility program that 
translates the card images to binary is called the JCL translator. 


Expanded JCL is not recognizable to the DX980 operating system, but only to 
the JCL translator program that runs as a job under DX980. Expanded JCL 
is the input to the JCL translator. 


2.3.2 ABBREVIATED JCL 


Abbreviated JCL, the mechanism for job submittal to DX980, is "cookbook"! 
oriented. It allows a user to run a FORTRAN program by directing the op- 
erating system to ''RUN FORTRAN". The user does not have to specify the 
detailed job step structure and resource assignments required to invoke the 
two passes of the compiler, to activate the link editor and finally to execute 
the program itself. This form must have a binary image of the expanded 
JCL saved ona disc file under the appropriate name, i.e., 'FORTRAN", 
That is, the expanded JCL must be prepared and processed for the FORTRAN 
example. However, this can be done by a systems programmer, leaving the 
applications programmer to debug his FORTRAN program without having to 
learn all ideosyncrasies of an expanded JCL. 


In addition to invoking an existing JCL sequence (a sequence of expanded JCL 
statements) by name only, abbreviated JCL allows modification of one or 
more JCL specifications at runtime. For example, the original JCL speci- 
fications might have assumed that a FORTRAN source program would be sup- 
plied on cards when in fact the source for a particular program is stored on 
a disc file. To satisfy this requirement, the user can specify at the time the 


expanded JCL is prepared that any given JCL parameter is either: 
(1) completely specified and cannot be modified at runtime, 
(2) completely specified but can be modified at runtime, or 
(3) not specified at all and must be supplied at runtime. 


With this facility, the user of a JCL sequence can decide that the original 
specifications or defaults are acceptable and invoke the sequence by name 
only, or he can decide that modifications are required and can specify the 
parameters to be modified. Abbreviated JCL is processed by the DX980 sub- 
systems or by the DX980 operator communications facility via the system 
console. 


2-2 Digital Systems Division 


943005-9701 


2.3.3 JCL TRANSLATOR 


The JCL transiator is a utility program that runs in user memory (as 
opposed to running in memory that is allocated to the operating system). 
This program translates expanded JCL statements into an internal binary 
representation for later processing. Input to the translator can be supplied 
from any of the standard 980 input devices (card reader, cassette, magnetic 
tape, disc files, etc.). Output from the translator can be stored ona disc 
file for later submission. Since the translator is a utility program, it can 
be invoked as any other user program by using abbreviated JCL form. The 
saved JCL sequence for the translator is stored on the system disc together 
with several other sequences that are supplied with each DX980 installation. 


2.3.4 DX980 SUBSYSTEMS 


In any particular DX980 installation one or more of the subsystems may be 
active for submission of user jobs. For a system with a card reader the 
Batch Processing Subsystem is active and user jobs can be submitted from 
the card reader. For systems with several terminals attached, the Interac- 
tive Terminal Subsystem is normally active to allow jobs to be submitted 
from any of the terminals. In any case, jobs can be submitted from the sys- 
tem console. 


Job submission from each of these sources is consistent with the cookbook 


JCL approach. The JCL sequence produced by the translator is retrieved 


from a disc file, modified according to the user's specifications, and sub- 
mitted to the operating system for execution. 


2.4 JOB SUBMITTAL 


Job submittal commands in DX980 are separated into two categories: JOB 
commands and RUN commands. The JOB command is required for a job sub- 
mission and identifies the user and the JCL sequence file to be used for that 
particular job. The RUN command represents abbreviated JCL and invokes 

a particular JCL sequence from the JCL file specified in the JOB command. 
When submitting a job via the system console or the Interactive Terminal 
Subsystem, only one JOB command is required. A job submitted for the 
Batch Processing Subsystem requires a JOB command for each RUN com- 
mand. The identifier, //, must appear as the first two characters ofa 
source line image for both JOB and RUN commands. The system console 
supplies this identifier automatically; however, it must be specifically sup- 
plied when submitting jobs under the Batch Processing Subsystem. The Inter- 
active Terminal Subsystem does not require the double slash identifier. The 
following conventions will be adhered to for all JCL descriptions throughout 
this manual: 


® Brackets [ | enclose optional fields. 


® Operands may be separated by either blank(s) or a single comma 
with or without intervening blanks. Successive commas may be 
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used to indicate a null operand. Both comma (, ) and the symbol, 
%, denote specified field separations. 


e All numerical value parameters must be either decimal (base ten) 
or hexadecimal (base sixteen). A numeric parameter is assumed 
to be base ten unless it is immediately preceded by a ''greater than" 
symbol (>) to denote a hexadecimal value. 


@ The first character of a keyword or operand must be alphabetic and 
the remaining characters may be either alphabetic or numeric char- 
acters intermixed in any order unless specifically noted otherwise. 


e <A period terminates a job control command or expanded JCL speci- 
fication. Comments may be written after the period. If no com- 
ments are written, the period is optional. 


e If the number of operands in a command exceeds the limits of a 
single record, the command operands can be continued in succeeding 
records by terminating each incomplete record with a semi-colon 
(;). Continuation records must begin past the first two spaces of 
the record, since the first two spaces will be ignored by the com- 
puter. If the input is on the system console, the computer auto- 
matically fills these two positions with two periods (..) following a 
record terminated with a semi-colon. Operands may then be entered 
immediately following the two periods. The number of continuation 
records is unlimited. This option can be used with both expanded 
and abbreviated JCL commands. 


e Items shown enclosed in angle brackets (< >) are variables that must 
be supplied by the user when submitting the command to DX980. 


2.4.1 JOB CCMMAND (JOB) 


All jobs submitted to DX980 must be preceded by a JOB command. JOB iden- 
tifies the user submitting a job, the name of the job, and the file where the 
JCL sequence to be executed is located. Two acceptable forms of JOB com- 
mands are as follows: 


//JOB }<jsname><userid> 

//JOB $ <jsname>$ <userid>’ FILE=(<volume>, <fileid>, <filnam>[,< pswd>]) 
In the first example containing no FILE specification, DX980 defaults to the 
System JCS file [FILE=(1, SYSTEM, SJCBFL, AB). ]. 


2.4.1.1 JOB KEYWORD. JOB is the keyword that identifies the remainder 
of a record as a JOB command. JOB must appear in positions three through 
six of the input record. Following the JOB keyword are the command oper- 
ands. These operands are position sensitive and must be separated by one 
or more blanks, or by a single comma with or without intervening blanks. 
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2.4.1.2 <jsname>OPERAND. The nomenclature, <jsname> refers toa 
name that is from one to six characters long. This name remains with the 
job throughout execution and represents the job name. 


2.4.1.3 <userid>OPERAND. The nomenclature<userid>refers toa 
name that is from one to six characters long and that identifies the user to 
the DX980 system. The<userid>operand appears only in the JOB command. 
This operand identifies the disc directory that points to the disc files owned 
by the user. Each directory is itself a disc file that contains information 
about each of the files that belong to it. A utility program, CATLOG, that 
is described later in this manual, creates and destroys the directories. 
When created, each directory is given a unique name, represented by the 
term<fileid>. A file may also be assigned an access restriction at the time 
it is first defined. If access to the file is restricted to only the originator 
(CREATOR) of the file, then the <userid>in the JOB command must match 
the < fileid> of the target file before access to the file is granted. 


2.4.1.4 FILE SPECIFICATION. FILE specification identifies the JCL se- 
quence (JCS) file for a particular job. Each DX980 installation is supplied 
with one file of commonly used JCL sequences referred to as the system 

JCS file. In addition, users may create their own JCS files for particular 
applications. In either case the FILE specification directs the system to the 
appropriate file. If the FILE specification is not explicitly provided, the 
FILE specification defaults to the system JCS file [FILE=(1, SYSTEM, 
SICBFL,AB)]. The following paragraphs explain the parameters of the FILE 
specification. 


<volume> Operand. The nomenclature <volume> represents an integer num- 
ber that specifies the disc unit containing the JCS file. The DX980 system 
disc is always disc number 1, and always contains the system JCS file. Addi- 
tional disc units are labeled 2 through n (n < 20), and can be specified at 


a 


Initial Program Loading (IPL). 


<fileid> Operand. The nomenclature <fileid> refers to a name that is from 
one to six characters long, and that specifies the file directory containing 
the JCS file. For the system JCS file this operand should be specified as 
SYSTEM. For auser JCS file this operand must correspond to the< fileid> 
that was specified when the JCS file was created. 


<filnam> Operand. The nomenclature <filnam> refers to a name that is from 
one to six characters long and that designates the file within <fileid> where 
the JCL sequences are stored. The file name for the system JCS file is 
SJCBFL. For auser JCS file this operand must correspond to the < filnam> 
that was specified when the file was created. 
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<pswd> Operand. The nomenclature <pswd> represents a name that is from 
one to four characters long and that is required only if the JCS file was desig- 
nated for password protection when it was created. Normally JCS files 

would not be protected from reading (the process of acquiring a JCL sequence 
from a file is a read operation) and this operand is not required. However, 
if the file is password protected from reading, this operand is required and 
must match the password that was specified when the file was created. The 
file, SJC BFL, is not password protected from reading. 


2.4.1.5 JOB EXAMPLES. The following examples illustrate the use of 
the JOB command. 


(1) //JOB NAME1 SYSTEM The job with job name 'NAME1"! 
will be run under the userid "SYS- 
TEM". Defaults on the three re- 
maining JOB parameters are "1" 
for <volume>, ''SYSTEM'" for 
<fileid> and "'SJCBFL" (acronym 
for System JCL File) for<filnam>. 


(2) //JOB NAME2 USERO1 The job with job name '"NAME2" 
will run under the userid "USEROL'"' 
The three default parameters are 
the same as example one. 


(3) //JOB NAME3 SYSTEM FILE=(1, USERO1, JCLFIL) 


The job with job name '"NAME3" 
will be run under the userid 
"SYSTEM". The JCL sequence 
will be retrieved from the file 
name "JCLFIL" under< fileid> 
"USERO1'' on disc number one. 
JCLFIL must have been previously 
created or the job will abort with 
a JCL error. 


2.4.2 RUN COMMAND (RUN) 


The RUN command is the control statement interpreted by DX980 subsystems 
and operator communications as a request to submit a job. This command 
and its operands comprise the abbreviated JCL for DX980 and must be sup- 
plied for each job submission. Only one RUN command is permitted within 

a JOB command. Thus each job submitted to DX980 requires a single JOB 
command followed immediately by a RUN command. 


The format of the RUN command is as follows: 


//RUN#<jcsnam>$[< ky =p, >B<k5=p,> os -<k =p_>] 
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2.4.2.1 RUN KEYWORD. The RUN keyword, following the command de- 
limiter (//), identifies the remainder of the record as a RUN command. 
This format is consistent whether the job is submitted via the Batch Pro- 
cessing Subsystem (BPS), or the operators console. If submitted under the 
Interactive Terminal Subsystem (ITS), the command delimiter does not pre- 
cede the RUN keyword. 


2.4.2.2 <jcsnam>OPERAND. The nomenclature< jcsnam> refers to a 
name that is from one to six characters long and that represents a JCL se- 
quence within the JCS file specified in the JOB command. This operand 
allows several JCL sequences to be stored in the same file with a unique 
name for each sequence. This operand is an extension of the FILE speci- 
fication on the JOB command in that the FILE specification directs the sys- 
tem to the appropriate JCS file and <jcsnam> specifies the JCL sequence to 
be invoked. 


2.4.2.3 USER DEFINED KEYWORDS (kj, kp, ..., k,). The user defined 
keywords in the RUN command permit modification of JCL parameters at 
runtime. Changing parameters is frequently required when the default speci- 
fications for one or more resource assignments do not match the require- 
ments for a particular job submission. When expanded JCL is prepared for 
input to the translator, the individual parameter specifications may include 
a user defined keyword which allows those parameters to be overridden. 
Selection of the keywords is at the discretion of the programmer preparing 
the JCL sequence. For example, a user defined keyword for specifying the 
master data file input to a payroll program might be specified as ''MASTFL" 
in One environment and as ''PAYFIL'"' in another. 


All user defined keywords supplied in the RUN command must match the 
corresponding keywords in the expanded JCL. Unused keywords in the ex- 
panded JCL assume their default values. If no default was specified, a JCL 
error results. 


2.4.2.4 PARAMETERS FOR USER DEFINED KEYWORDS. The nomen- 
clature "pj p2... py,'' represents either numeric or mnemonic values to be 
substituted into the JCL sequence <jcsnam> that the system retrieves from 
the <filnam> file. The size of the numeric values must fit within the limits 
of the parameter being replaced. For example, if priority were the variable 
being specified, ''p'' must be between 1 and 31. 


2.4.2.5 RUN EXAMPLES. The following examples illustrate the use of the 
RUN command to invoke the JCL translator. A list of the expanded JCL for 
the translator is included in Appendix B of this manual. 


(1) //RUN JCL "JCL" is the <jcsnam> for the 
JCL translator. This sequence is 
stored in 'SJCBFL" under the 
fileid "SYSTEM". This example 
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invokes the JCL translator with 
standard default assignments for 
input and output. The standard 
defaults are listed in the JOCLTRN 
JCS in Appendix B of this manual. 


(2) //RUN JCL DSRC=CR2, DERR=LP1,DLST=LPI1 


Run the JCL translator with over- 
ride parameters ''LP1" (line 
printer number 1) for DERR (er- 
ror messages) and for DLST 
(JCL listing), and with 'CR2"' 
(card reader number 2) for 

DSRC (JCL source device). 


(3) //RUN JCL OBJ=(USEROI1, JCL, RLK) 


Run the JCL translator with de- 
fault parameters for DSRC, DERR 
DERR and DLST; use override 
parameters ''JCL" for the file 
name under fileid ''USERO1"! 

with password ''RLK". 


2.5 EXPANDED JCL SPECIFICATION 


The following sections describe the format of JCL translator input. A de- 
scription of the output is not appropriate at this point since it is only acces- 
sible to the DX980 subsystems. However, this information is available in 
Section V within the description of the Start Job supervisor call. 


2.5.1 JCL TRANSLATOR INPUT FORMAT 


‘All input commands to the JCL Translator require a single / (slash) as the 
first character of the source line image. This is followed by a legal com- 


mand (1 of 6) and any applicable keywords. The six commands are: 
CREATE 
REPLACE 
DELETE 
EXEC 
ASSIGN 


END 
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These commands are explained later in this section. There are three accept- 
able formats for these input commands as follows: 


(1) /COMMAND <keyword>... 
(2) /COMMAND- <keyword>=<value>... 
(3) /COMMAND- <keyword>:=<label>... 


2.5.1.1 FORM ONE. The nomenclature <keyword> represents a binary 
condition that is either ''true''or "false". There is always one <keyword> 
for the ''true'' condition and another for the ''false'' condition. If both 
<keyword>s are specified for the same operand, the dual assignment will be 
detected as a JCL error. 


2.5.1.2 FORM TWO. The notation <keyword>=<value> assigns a value or 
values to a particular <keyword> or <keyword>s respectively. This form 
may be used in either of the two formats as follows: 


a) <k > =<P)>1<K,>=<Py>) ee »<k> Ss 


b) <k>=(<p,>, SPo>s x79 <P>) 


If the second format is used, all parameters are positional and must be sup- 
plied or replaced with successive commas. 


2.5.1.3 FORM THREE. The notation <keyword>:=<label>, permits the 
user to specify a label which becomes a<keyword> in the RUN command for 
operand replacement at job submittal. The translator will accept a combina- 
tion of form three and either form one or form two for the same operand. 
This combination creates an operand that may be submitted with an appro- 
priate default value if not overridden in the RUN command. Form three must 
be used if the operand is to be supplied when the job is submitted. 


2.5.1.4 DEFAULTS. Each operand in a given command must either be 
supplied in one of the three forms or have an acceptable default value of 
zero. When operands are required but not supplied, DX980 inserts zero for 
the operands. If the default zero is not acceptable, omission of an operand 
results ina JCLerror. Table 2-1 lists the JCL operand defaults. 


2-9 Digital Systems Division 


° 
WO 943005-9701 
Table 2-1. JCL Operand Defaults 


EXEC PROT/PRIV PROT 
ASSIGN EXCLUSIVE/SHARE EXCLUSIVE 
RELEASE/PASS RELEASE 
OLD/NEW/REPLACE 
SAVE/DELETE 
PASSWORD 


2.5.2 CONTROL COMMANDS 


The first input record to the JCL translator must be a CREATE, REPLACE 
or DELETE command. The formats for this command are as follows: 


/CREATE <jcsnam> 
/REPLACE <jcsnam> 
/DELETE <jcsnam> 


The CREATE command adds a new JCL sequence, the REPLACE command 
replaces an existing sequence, and the DELETE command deletes an existing 
sequence in the JCS file. If CREATE or REPLACE is specified, additional 
input is expected after the command to define a new sequence. If DELETE 
is specified, no additional input is expected other than a /END command to 
terminate the operation. The name of the JCL sequence is <jcsnam> Sub- 
sequent RUN commands to invoke the sequence must specify the same 
<jcesnam>. 


2.5.3 EXECUTE COMMAND 


Each job step defined for a sequence must begin with an Execute (EXEC) 
command. This command contains information to set up the execution en- 
vironment for the program to be run. Input and output information is not in- 
cluded. If there are multiple steps in a sequence, each step must begin with 
an Execute command. The Execute command supplies the following informa- 
tion about a program: 


® object program 
e memory usage 


e priority 
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e time limit 
e execution mode 
The format of the execute command is as follows: 
/EXEC operands 
The Execute operands may appear in any order following the command. The 


following paragraphs explain each operand. 


2.5.3.1 OBJECT PROGRAM SPECIFICATION. The object program speci- 
fication operand supplies the location of the disc file that contains a binary 
memory image of the object program. The object file to be used as input 
must have been previously created by DXOLE, There are four parameters 
required to access a unique object file. The format of these parameters is 
as follows: 


OBJV=<volume> 
OBJN=<userid> 

OBJF =<filnam> 

OBJP=<pswd> 


An optional form can also be used: 


OBJ=(<volume>, <userid>, <filnam>, <pswd>) 


The OBJ parameters can be interpreted in the same manner as the corres- 
ponding parameters in the JOB command. For example, <volume> is an 
integer number from 1 to n that indicates a particular disc drive unit where 
the object file is located. The other parameters are user assigned. The 
<pswd> parameter is required only when the file is password protected for 
the execute attribute. 


2.5.3.2 MEMORY USAGE SPECIFICATION. The memory usage specifica- 
tion refers to the runtime memory allocation for the object program, file/ 
device buffers, and user control information, All memory specifications are 
represented in units of memory words (16 bits per word). Three parameters 
are required to completely specify user memory and are input in the follow- 
ing format: 

MEMT=<stksiz> 

MEMU=<jarea> 

MEMJ=<jearea> 


or in the optional form: 


MEM=(<stksiz>, <jarea>, <jearea>) 
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The parameter <stksiz> specifies the stack size supplied for the initial user 
task created by DX980 when the job is started. This memory area is used 
for temporary storage whenever a Supervisor Call (SVC) is executed by the 
user program (the DX980 SVCs are discussed in Section V.) Since the 
DX980 SVCs are generally reentrant, execution of an SVC requires a work 
area for storage of local variables. If several reentrant modules are exe- 
cuted to perform the SVC function, the work areas for each module must be 
stacked as the SVC is processed. This work area stack must be supplied 
within the user program's job extension area. 


Although each DX980 SVC requires a different amount of memory for the 
work area stack, the [I/O SVCs require the largest amount. Thus, a<stksiz> 
specification that satisifes I/O SVCs will also satisfy the remaining SVCs. 
The two types of I/O SVCs are I/O calls either to peripheral devices or to 
disc. I/O to peripheral devices requires approximately 125 words of 
<stksiz>, whereas disc file I/O calls can require up to 300 words. There- 
fore, specify 125 words if there are no disc files assigned and 300 words 
otherwise. Either size will be sufficient to handle all other SVCs. This 
<stksiz> specification applies only to the first task. Other tasks within the 
job define their own stack allocation. 


The parameter <jarea> defines the program job area for storage of the user's 
object program plus any work space required by that program. The size of 
an object program can be determined from the output of the DX980 Linkage 
Editor DXOLE. If the program was subjected to a pre-planned overlay when 
input to the Linkage Editor, <jarea> must be large enough to accommodate 
the longest or largest overlay segment plus three words per phase (including 
the root phase) for overlay directory. This information is also available 
from the Linkage Editor. | 


If the user requires a program with a dynamic work area that can be speci- 
fied at runtime, <jarea> must specify sufficient memory for both the object 
program and the work space. The user program can then determine avail- 
able memory for the run through Get Memory supervisor calls within the 
program logic. This concept is particularly useful to allow the amount of 
program workspace to be Specified at runtime rathcr than when the program 
is compiled. 


The parameter <jearea> defines the user program job extension area and 
refers to that portion of the user's memory region used for file or device 
buffers and control information. This area, though not directly accessible 
from a user program, must be supplied for execution of the program. 


The determination of the <jearea> size is much more difficult thah that of 
<jarea> because the size of <jearea>is dependent on the logic of the user 
program and will vary throughout the course of program executions. The 


2-12 Digital Systems Division 


o 
rig 943005-9701 


following algorithm, though not exact, provides a guideline for the specifica- 
tion of <jearea>: 


NF NB | 
<jearea>= max (BS, + 1) + 17*NT + 7*NL + SS +11 
J i 
fede jad | 


where 
NF = Number of files assigned to the job step 


NB = Number of buffers requested for each file 
BS = Block size 


NT = Number of co-resident program tasks 


NL = Number of logical units (LUNs) assigned concurrently to the job step 


SS = Dynamic TCB stack requirements 


Since the terms inside the braces vary as a function of the number of files or 
devices that are open and of the number of concurrent tasks that exist, the 
user must determine the maximum value of the expression to specify <jearea> 
size. 


The first term, disc file blocksize, is the sum of all blocking buffers that 
coexist at any instant in time plus one word of cverhead for each block. 
Since memory is allocated to biocking buffers oniy when a file is open, this 
term varies according to the disc file activity in the user program. If mul- 
tiple buffers are specified for a single disc file, each buffer must be ac- 
counted for. 


The second term encompasses the memory requirements for task control 
blocks. Each task control block requires 17 words. Therefore, this term 
can be determined by muitiplying the number of tasks that exist at any instant 
intime by 17. The operating system creates one task for the user job when 
the jobis started. Therefore, there is always at least one task control block 
in the job extension area. Any additional tasks are directly created by the 
program using the Create Task supervisor call (Section V), or indirectly 
created by the program using an Initiate I/O supervisor call (Section III). 


The third term provides space for Logical Device Tables (LDT). There is 
one LDT for every file or device assigned to the job. Thus, this term can be 
determined as the number of logical units assigned multiplied by 7 (the size 
of each LDT). 


The fourth term, TCB stacksize, is a companion to the <stksiz> parameter. 
The memory specified for <stksiz> is allocated from the job extension area 
when the initial user task is created. If the user creates additional tasks 
within the program, the <stksiz> specification for the additional tasks must 
be supplied with the create task SVC. As each task is created, the memory 
required by the accompanying <stksiz>is also allocated from the job exten- 
sion area. Thus the TCB stacksize term must provide sufficient memory to 


accommodate all concurrent tasks. 
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The fifth term, a constant 11, is due to overhead required by the DX980 
memory manager for control information, plus one extra LUN assignment 
that is made by the operating system for every user program. 


Examples: 

(1) MEM=(125, 2000, 152) Allocate memory for a program 
with a single task and two LUN 
assignments to non-disc peri- 
pherals. The interpretation of 
this specification is: 

(1) <stksiz> of 125 words pro- 
vides a stack for I/O to non- 
disc peripherals 

(2) <jarea> of 2000 words for the 
object program. This num- 
ber is output from DXOLE. 

(3) <jearea>of 152 words accounts 
for one co-resident program 
task (17 words, two LUNs 
(14 words), 125 words of TCB 
stacksize, and 11 words of 
overhead. 

(2) MEM=(300, 4000, 917) Allocate memory for a program 


with two tasks, one system cre- 
ated task and one user created 
task, and two LUN assignments 

to disc files, each with a physical 
record length of 128 words. The 
interpretation of this specification 
is: 


(1) <stksiz> of 300 words for file 
I/O 
(2) <jarea> of 4000 words as 


a 
XOLE load 


Oo : 


specified on the 
map 

(3) <jearea>of 917 words accounts 
for two co-resident program 
tasks (34 words), two LUNs 
(14 words), two physical rec- 
ord buffers (258 words), 600 
words of TCB stacksize (as- 
suming that the user created 
task was also created with a 
<stksiz> specification of 300 
words for disc I/O), and 11 
words overhead. 
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2.5.3.3 PRIORITY SPECIFICATION. Priority specifies the priority of the 
job step at execution, and the number of unique priority leveis needed within 
the step. This information is input to the DX980 computations which provide 
resources to the resultant program during job submission and program exe- 
cution. When the job is submitted, this job step contends for system re- 
sources such as memory and peripherals along with all other job steps wait- 
ing to be initiated. When the job is executed, scheduling of the CPU is also 
determined by priority. The required parameters and appropriate mnemonic 
representations are as follows: 


PRT L=<nprty> 
PRTS=<jsprty> 

or in the optional form: 
PRT Y=(<nprty>, <jsprty>) 


The nomenclature <nprty> represents the number of task priority levels and 
is greater than one only if the program uses the multi-tasking feature of 
DX980. This number corresponds to the maximum number of separate task 
priority levels (not the number of separate tasks) that may be created within 
the user program. Several tasks may share a common priority level. 


ier cate teria d ie he fee ees, : = Bee Sy Se ee 73 See Sa Oba 1 
guedaned to ehe job step for saheduling purposes and to the initial tase re - 
ated by the operating system. The limits on <jsprty> are 1 to 31 where 1 is 
the highest and 31 the lowest priority permissible to a user program. More 
than one job may execute concurrently while sharing a common priority 
level. 


When a2 job step is subm 


ob ste ritted, DX980 checks the limits of the priority param- 


m 


eters as Poilowe: 
I <<nprty> <-31 
1 <<jsprty> <3l 
1 <<nprty> + <jsprty>< 32 


The limits on each parameter are due to the priority limits in DX980. The 
combined limit is due to the method of creating one task from another in 
DX980. If the user program creates additional tasks, the priority of each 
created task is specified relative to the job step priority (0, 1, 2, etc.), 
where the relative numbers are always positive. Thus, a task cannot be 
created from a user program with a higher priority than the job step priority. 


However, tasks can be created with priority equal to or lower than job priority. 
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_ If any task is created with a priority lower than 31, the creation will be rec- 
ognized as a fatal error and the job will be aborted. This criteria produces 
the combined <nprty> and <jsprty> limit. 


Examples: 

PRTY=(1,,.15) This job step contains only one 
task priority level. Both the job 
step and the task(s) created for 
program execution are assigned 
priority 15. 

PRTY= (2,1) There are two task priority levels 


-in this job step, levels 1 and 2. 
The job step is assigned priority 
1. 


2.5.3.4 TIME LIMIT SPECIFICATION. Time limit specifies the maximum 
amount of time for execution to be allotted to a job step. The time monitored 
represents actual time that the program has control of the CPU (rather than 
wall-clock time). If the program has not terminated normally when the time 
limit passes, the operating system abnormally terminates the program. 

Time parameter format is as follows: 


TIME= time limit in seconds 


To instruct the translator and operating system to run a job with an infinite 
time limit, set the time limit to a minus one: TIME=-1. This input is in- 
terpreted as a directive to ignore timeout checking completely. 


2.5.3.5 EXECUTION MODE SPECIFICATION. Privileged or protected re- 
fers to the mode of the program during execution. Normally user programs 
run in the protected mode so that they are prevented from damaging the op- 
erating system. System programs always run in the privileged mode, allow- 
ing them to move freely within available memory. The format of this param- 
eter is as follows: 


PRIV 
PROT 


2.5.3.6 EXECUTE COMMAND EXAMPLE, The following input sample 
illustrates the use of the EXEC command: 


/EXEC OBJ=(1,SYSTEM, ASMBLR), MEM=(300, 5000, 1000), PRTY=(1, 15); 
/TIME=-1 MEM:=MEM, PRTY:=PRI, TIME:=TIM 
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2.5.4 ASSIGNMENT COMMAND 


Each job step must define the logical units for I1/O operations. I/O assign- 
ments are not carried forward from one job step to another. Therefore, an 
assignment command must be included for each Logical Unit Number (LUN) 
referenced during execution of each job step, except when using the Execution 
Time Allocate SVC (see Section V). An assignment command has a slash (/) 
in column 1 and the keyword "ASSIGN" in columns 2-7. Following ASSIGN, 
the assignment operands may be specified in the same three forms as on the 
execute command. For convenience, however, the logical unit number and 
device name operands may be specified positionally, logical unit number first 
and device name second, or with the< keyword>=<value> form. As with all 
operands, the< keyword>:=<label> form can provide override capability when 
the job is submitted. 


Each assignment command in each job step must have the following minimal 


information: 
e LUN 
e device name 


@ device sharability 
e device disposition 


If device name specifies a random access device (moving head disc), 
then the following information must be supplied also: 


e file creation 
e file identification 
e file disposition 


e number of file buffers (key indexed files only) 
If file creation is specified as 'NEW", then the following must also be speci- . 
fied: 

® file type 

® file integrity 

e file allocation 

e key length (key indexed files only) 

e logical record length (relative record files only) 


Each operand, together with the operand limits and default value, if any, is 
described in the following sections. 
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2.5.4.1 LUN OPERAND. LUNs provide a consistent method of communi- 
cation between a user program and the DX9801/O system. All I/O requests 
from a user program must be accompanied by a LUN. Each LUN must be 
coupled to a physical device or file through the assignment command. This 
feature allows I/O requests in a program to be device independent, and de- 
fers the actual device assignments until the program is submitted for execu- 
tion. The LUN operand can take either of the following forms: 


LUNO= <lun> 
or 
/ASSIGN <lun> 


The notation<lun>is a decimal number in the range of 0 to 250 (LUNs from 
251 through 255 are reserved for operating system use), and must be unique 
within a job step. Duplicate assignments of the same LUN within a job step 
will be recognized as an error. However, the same LUN can be used by 
more than one job, since each assignment applies only to a specific job. 


2.5.4.2 DEVICE NAME. Device names refer to the mnemonics that rep- 
resent the physical devices attached to the computer. The translator accepts 
any of the permissible device mnemonics that could exist for a DX980 instal- 
lation. If an assigned device does not actually exist, one of the subsystems 
detects the error when the job is submitted and the job is aborted. The 
DEVICE NAME operand can take the form of either of the following forms: 


DEVICE=<devnam> 
or 
/ASSIGN <lun> <devnam> 
The notation <devnam> represents a user supplied mnemonic that must be 


selected from the list in table 2-2. 


Table 2-2. Suggested Device Names 


; Device Index : Saag 
Mnemonic Device Description 


Range 


DISC1-DISCn Disc (Moving head or DS330) 1 through 
n < 20 n, n < 20 | 


KEY1-KEYn Teleprinter keyboard (ASR/KSR 33, 730, 


733,735) 1 through n 
CRT1-CRIn Video display 1 through n 


Sc System console data terminal (Tele- 
printer keyboard or video display) 
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Table 2-2. Suggested Device Names (Continued) 


; Device Index : er 
Mnemonic Device Description 
Range : 


MT1-MTn 31 - 40 Magnetic tape 1 through n 
LPl=LPn 
CR1-CRn 51 - 60 Card reader 1 through n 
| 
| 


Line printer 1 through n 


PTR1-PTRn 61 - 70 Paper tape reader 1 through n 

PiPishiPa 71 - 80 Paper tape punch 1 through n 

DM1-DMn 81 - 90 Data module interface devices 1 
through n 

ADDA1-ADDAn 91 - 100 Analog -to-digital/digital-to-analog con- 


verter 1 through n 


CS11S- C812 ates 5 101 = 110 Cassette 1 on teleprinter 1 through 


CSnl1, CSn2 cassette 2 on teleprinter n 

DUMMY Zo5 | Dummy device - responds with an im- 
| mediate end-of-file on input and with 
no~op on output 
! 

SYSIN - | System input spooler | 


SYSOUT 


| 


System output spooler 


TERMIO Interactive terminal log on device 


2.5.4.3 DEVICE SHARABILITY. A device or file can be designated as 
either shared or exclusive. These attributes are specified by the binary rep- 
resentation of the keywords "SHARE" or "EXCLUSIVE". The default value is 
exclusive. If a device or file is exclusively assigned to one job, then any 
other job that is submitted with an assignment to that device or file, either 
shared or exclusive, will not be started until the first job releases it. Ifa 
device or file is selected as shared by all assigning programs, then all pro- 
grams may run concurrently. 


2.5.4.4 DEVICE DISPOSITION. The device assignment may be kept or re- 
leased when the current job step is completed. This choice is specified by 
the binary keywords 'RELEASE" or ''PASS'". The default value is release. 


Assignment passing in DX980 is extremely useful for multi-step jobs that re- 
quire the same file or device in more than one step. Further, passing a de- 
vice or linked sequential file will cause the physical position to be maintained 


2-19 Digital Systems Division 


(e) 
VO ai 


between job steps (key indexed and relative record files do not hold position 
between steps). Even though passed, a device must be assigned to a LUN 
for the next job step. 


The passing of only a portion of the required resources for a job string can 
cause a resource deadlock. However, DX980 guards against any deadlock by 
cancelling jobs that have passed resources from a previous job step and that 
are also requiring unavailable resources. Thus, to prevent a job cancella- 
tion caused by the running job environment, the user should specify that all 
resources are passed from job step to job step. 


2.5.4.5 FILE CREATION. A file may be either old, new, ora replace- 
ment. These attributes are specified by the binary representation of the key- 
words 'OLD", "NEW'' and "REPLACE" which are defined as follows: 


® OLD: File already exists (default value). 
e NEW: Create a file. Error if file already exists. 
e REPLACE: Replace file if itis there; create a file if it is not there. 


2.5.4.6 FILE IDENTIFICATION. A file is accessed via a file directory 
(or dictionary) and file name, and can be protected by a password. The 
directory, name and password can be specified with either of the following 
formats: 


FILDIR=<fileid> 

FILNAME=<filnam> 

PASSWORD=<pswd> 
or 


FILE=(<fileid>, <filnam>, [<pswd>]) 


The <fileid> and <filnam> parameters are identical to the <fileid> and 
<filnam> parameters inthe JOB command. A special case of the <fileid> 
parameter is provided for temporary files. The user can specify a file for 
use only during a job string, by entering a <fileid> of 'TEMP". This file is 
never entered into a User File Directory, but is totally unique to the job 
string using it. The file creation parameter should be NEW for the first ref- 
erence to a temporary file, and OLD for subsequent references. All other 
parameters are specified as usual. The file is deleted at the end of the job 
string unless deletion is specifically called for at the end of a job step by the 
DELETE directive. 


The notation <pswd> denotes a user supplied password that is used in con- 
junction with file integrity to control file access as described under ''File 
Integrity'' in this section. If this parameter is specified when a file is cre- 
ated, it will be required to access the file. Otherwise, <pswd> is ignored. 
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2.5.4.7 FILE DISPOSITION. The user can choose to either delete or save 
a file after a job step. These two alternatives are specified by the binary 
keywords: 


SAVE 
DELETE 


The default value is SAVE. If the device disposition parameter was ''PASS", 
specifying ''DELETE" produces an error condition that is detected by the 
operating system. 


2.5.4.8 FILE BUFFERS. Linked sequential files always require one buf- 
fer. Relative record files require no buffers if the logical record length 
equals the physical record length (unblocked), and require one buffer if the 
logical record length is less than the physical record length (blocked). These 
specifications are fixed and are unaffected by user input in JCL. However, 
file management supports a variable number of buffers for key indexed files. 
For a sequential access of the data records within a key indexed file, only 
one buffer is required. For keyed access, a minimum of two buffers is re- 
quired: one for key records and one for data records. Using more than two 
buffers for these files reduces the amount of disc I/O required and increases 
program speed. Therefore, the number of buffers assigned to a key indexed 
file is controlled by the user through the Buffers specification. The format 
for this specification is: 


BUFFERS=<nbufs> 


2.5.4.9 FILE TYPES. A file may be either linked sequential, relative 
record, or indexed. These attributes are specified by the binary representa- 
tion of the keywords ''LINKSEQ", "RELREC", and "INDEXED". There is no 
default for file type, so it must always be specified. See Section IV for a de- 
scription of the three file types. 


2.5.4.10 FILE INTEGRITY. Files can be accessed under DX980 for one 
of four functions: read, write, delete, or execute. Data management pur- 
poses frequently require unlimited access to a file for one or more of these 
function, but only limited access for others. Therefore, DX980 provides an 
integrity mechanism for each of these functions. For example, DX980 can 
be instructed to allow any user access to a file for reading but require a 
password for access during writing or deleting. The format for supplying 
integrity codes (only appropriate for newly created files) is either: | 


READCODE=<integ> 
WRIT CODE=<integ> 
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DELCODE=<integ> 
EXECODE=<integ> 
or 
ACCESS= integ>,<integ>, <integ>, <integ>) 


The notation <integ> represents the integrity code supplied for each function. 
Select the code from the list of values in table 2-3. 


Table 2-3. File Integrity Codes 


Access Granted To 


All users for the specified function. 


User with password only (those users 
that specify a <pswd> parameter cor- 
responding to the <pswd> parameter 

of the file). 


Creator of the file only (the users that 
specify a <pswd> parameter correspon- 
ding to the <pswd> parameter of the file 
and whose <userid> in the JOB command 
matches the <fileid> of the file). 


No one (no access allowed for the speci- 
fied function). 


An 'ANY" code specifies unlimited access, and allows a user to access the 
file for any specified function for which he knows the appropriate <fileid> 
and <filnam>. In this case the <pswd> parameter is not required for file 
specification. 


A "PSWD"' code specifies that access for the associated function is possible 
only if the proper <pswd> parameter is supplied in file specification. When 
a file is created with ''PSWD"' specified for a function, a <pswd> parameter 
must also be supplied during file specification. Integrity code violations are 
detected when the accessing program is running rather than when it is sub- 
mitted. For each I/O request DX980 verifies that the I/O opcode is valid for 
the integrity code that was established when the file was created. 


A "CREAT" code specifies that the <pswd> parameter must match the <pswd> 
parameter of the file and that the <userid> parameter in the JOB command 
must match the <fileid> parameter in the file specification operand for a user 
to gain access for the associated function. 
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A "NONE" code specifies that access is prohibited for the associated function. 
Normally, the only function that has 'NONE" specified for an integrity code 

is 'EXECODE"; however, ''DELCODE" may also be specified as 'NONE",. 
The JCL translator ensures that 'NONE'"'is not specified for READCODE or 


WRITCODE, and flags such a specification as a JOLerror. A "NONE" code 
is automatically specified for EXECODE in the case of linked sequential and 
key indexed files since those file types are not compatible with the program 
loader in DX980. 


2.5.4.11 FILE ALLOCATION, File allocation refers to the allocation of 
file space ona disc. This operand is pertinent only for files being newly 
created (NEW or REPLACE). Under DX980 the user must specify the initial 
and maximum space allocation, plus the physical record size of the file that 
will occupy the space. The user can also indicate to DX980 where the file is 
located on the disc. The format for supplying this information is one of the 
following: 


INITIA L=<itrks> 
LOCN=<trknum>s 
PRECL=<prwrds > 


or 


ALLOCATE=(<itrks>,<trknum>,<«<prwrds>,< mtrks>) 


The nomenclature <itrks> represents the initial number of disc tracks that 
are allocated to the file when the file is created. If the file type operand is 
"RELREC", the initial allocation is forced to match the maximum allocation 
because relative record files must be stored contiguously on the disc and 
cannot grow. For the other file types, however, the file organizations are 
noncontiguous and allow the file to grow beyond its initial allocation. The 
default value for <itrks>is l. 


The nomenclature <trknum> represents the disc track where DX980 will start 
searching for space to allocate to the file. The track allocation mechanism 
in DX980 starts searching for the number of tracks specified in <itrks> at 
track number <trknum> and continues the search until it finds sufficient con- 
tiguous space to satisfy the request. Normally the search starts at track 0 
and continues across the entire disc if necessary. Although disc tracks ona 
moving head disc are not physically constructed in ascending order across 
the disc, they are considered as such for the specification of <trknum>. In 
general, specifying a nonzero <trknum> may be used to position the new file 
close to another file. 
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This specification is useful only to reduce head movement on a moving head 
disc drive when both files are accessed by a single program. This arrange- 
ment can result in a significant throughput increase for I/O bound programs 
that access more than one disc file. 


The notation <prwrds> designates the number of words in each physical rec- 
ord. Each physical record stored on the disc is preceded by a record 
header. The moving head disc has a header at the beginning of each disc 
sector regardless of physical record length and individual track formatting 

is unnecessary. The DS330 disc system requires track formatting that in- 
volves writing record headers at the beginning of each physical record across 
the entire track. Various track formats are shown in table 2-4 for the DS330 
disc type. Maximum values for <prwrds> are shown in table 2-5. Formatting 
time for DS330 is 80 ms/track and occurs when the tracks are allocated to 
the file, either initially or when expanding to another track. Since the disc 
systems supported by DX980 store data in blocks of 32 words, itis necessary 
to constrain <prwrds> to multiples of 32 words. Furthermore, since physical 
record length is analogous to blocking buffer size, memory allocation for the 
job extension area (<jearea>in the JOB command) must comprehend the 
physical record length of each file assigned to a program. 


The parameter <mtrks> defines the maximum number of tracks that are allo- 
cated to a file that can grow, and in particular, to linked sequential and key 
indexed files. The initial allocation (<itrks>) for these file types is made 
when the file is created. When an operation tries to add data after the ini- 
tial allocation is used up, the file grows one track at a time until either the 
additions are completed or the number of tracks specified by <mirks> is 
reached. Inthe latter case, the offending program terminates abnormally 
after file management allocates one extra track to perform thewrite opera- 
tion in progress. 


Examples: 


i (1) ALLOCATE=(1, 0, 32,1) Allocate 1 initial track, starting 
the search at track 0. Format 
each physical record into 32 
words and allocate no more than 
1 track regardless of program 
activity. 


i (2) ALLOCATE=(5, 100, 512, 10) Allocate 5 initial tracks, starting 
the search at track 100. Format 
each physical record into 512 
words and allow the file to grow 
to a maximum of 10 tracks. 
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Table 2-4. DS330 Disc Formatting 


ll 512 5632 83. 81 
9 9 576 5184 | Ae 
8 10 672 5376 80. 00 
g 11 736 5888 87. 62 
| a 12 800 5600 «| 83.33 
6 13 864 5184 | 77.14 | 
6 14 960 5760 85.71 
5 15 1024 5120 76.19 
| 5 16 1088 5440 80.95 
5 17 1152 5760 | 85.7] 
4 18 1248 4992 74.29 
4 19 1312 5248 78.10 
4 20 1376 5504 81.90 
4 2] 1440 5760 85.71 
4 22 1536 6144 91.43 
3 23 1600 4800 71.43 , 
3 24 1664 4992 74.29 
3 25 1728 5184 77.14 | 
3 26 1824 5472 81.43 
3 27 1888 5664 84.29 
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Table 2-4. DS330 Disc Formatting (Continued) 


Useful Efficiency 
Words/Track 
5856 87.14 
6048 90. 00 
4224 62. 86 
4352 64. 76 
4480 66.67 
4608 68.57 
4800 71.43 
4928 43¢ 33 
5056 10224 
5184 77.14 
5376 80. 00 
5504 81.'90 
5632 83.81 
5760 85.71 
5952 80.57 
6080 90.48 
6208 92. 38 
3168 47.14 
3264 46.57% 
3323 49.52 
3392 50.48 
3456 51.43 
3520 525-38 
3616 53.81 
3680 54. 76 
3744 Doe LL 
3808 56.67 
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Table 2-4. DS330 Disc Formatting ( Continued) 


Records/Track]| Sectors/Record | Words/Record Useful Efficiency 
<prwrd> Words/Track 


pet 


1 57 4032 4032 60.00 
1 58 4096 4096 60.95 
1 59 4192 4192 62. 38 
1 60 4256 4256 63. 33 
1 61 4320 4320 64,29 
1 62 4384 4384 65.24 
1 63 4480 4480 66.67 
1 64 4544 4544 67.62 
1 65 4608 4608 68.57 
1 66 4672 4672 69.52 
1 67 4768 4768 

1 68 4832 

1 69 72. 86 
1 70 4960 4960 73.81 


| | 
| 70.95 
4832 71.90 
| 
| 
| 
| 
| 
| 
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Table 2-4. DS330 Disc Formatting (Continued) 


Useful Efficiency 
Words/Track 


Table 2-5. Maximum <prwds> Physical Record Lengths 
for Disc Files 


File Type DIABLO Type Disc DS330 Type Disc 


Relative Record 2816 (full track) 6272 (full track) 
Linked Sequential 1408 (half track) 3104 (half track) 


Key Indexed 2816 (full track) 6272 (full track) 


2.5.4.12 KEY LENGTH. The length of keys for new indexed files can be 
specified as in the following format: 


KEY LEN=<klchar> 


The notation <klchar> represents the number of characters in each key for a 
key-indexed file and must be in the range of 1 to 30. The physical record 
length must be able to hold at least 2 keys plus 14 words. Providing a phys- 


ical record length that can hold 10 or more keys increases search efficiency. 
Section IV contains a detailed description of key index file directory formats. 


2.5.4.13 LOGICAL RECORD LENGTH. The logical record length for new, 
relative record files can be specified in the following format: 


LREC L=<Irchar> 


The parameter <Irchar> specifies the logical record length in characters. 

If the relative record file is blocked, then the logical record length must be 
less than or equal to the physical record length. If the file is unblocked, then 
the logical record length must be a multiple of 32, and must be equal to the 
physical record length. LRECL is not appropriate for linked sequential and 
key indexed files since both allow variable length logical records. 
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2.5.4.14 ASSIGNMENT EXAMPLES. The following examples illustrate 
possible uses of the ASSIGN parameters. 


(1) /ASSIGN, 5, CR1, EXCLUSIVE, RELEASE. | 
Assign LUN 5 to the card reader (CR). The card reader is not 
shared with any other user (EXCLUSIVE), and is released at the 
completion of the job step (RELEASE). The period (.) indicates 
the end of the assignment and allows addition of user comments. 


(2) / ASSIGN 5 CR1 EXCLUSIVE RELEASE 
This example is equivalent to example 1. Delimiters between op- 
erands can be either blanks or commas. The period at the end of 


the statement is optional. 


(3) /ASSIGN 13 DISC1 SHARE PASS OLD, FILE=(USRNAM, NAME) 
Assign LUN 13 to disc 1. The disc file is shared (SHARE) and 
passed to the next job step (PASS). Since a disc is specified, cer- 
tain file information must be given. The file is old (already exists), 
and can be referenced by name NAME in directory USRNAM. 


(4) /ASSIGN 250 DISC] SHARE PASS; 
/NEW, RELREC, FILE=(USRNAM, NAME), SAVE; 
/ACCESS=(ANY, CREAT, CREAT, PSWD); 
/ALLOCATE=(1, 38, 64,1), LRECL=40 
A new file was specified so that more information is required in 
addition to that specified in example 3. The new file can be read by 
anyone (ANY), can only be written into or deleted by the creator of 
the file (CREAT, CREAT), and requires a password to execute code 
from the file (PSWD). The file is to have 1 track allocated and 
the search for this track must start at track 38. Each physical 
record is 64 words. Finally, the logical record length is 40 char- 
acters. 


(5) /ASSIGN 6 SYSOUT 
SYSIN and SYSOUT are system spooling devices. 


(6) /ASSIGN DEVICE=SYSOUT, LUNO=6 
An alternative form of example 5. 


(7) /ASSIGN 6 SYSOUT LUNO:=NEWLUN 
This example has the same effect as examples 5 and 6 except that 
the LUN can be changed for this assignment by specifying 
//RUN ... NEWLUNSs7... when the job is submitted. 


a 
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2.5.5. JOB CONTINUATION/TERMINATION 


Either another /EXEC card to specify a new job step, or a /END card to 
signify that all job steps for the job have been defined through the JCL Trans- 
lation phase must follow the last assignment of a job step. If the system de- 
tects no errors in processing the sequence of job steps, it writes the infor- 
mation specifying the job in the assigned output file, and locates that file ina 
position specified on either the CREATE or REPLACE control card. 


2.6 FORMAT SUMMARY 


Figure 2-1 summarizes the formatting options and requirements for job sub- 
submittal commands and for extended JCL commands. The format for sub- 
mittal commands appears at the top of the figure. The JOB command format 
is totally generalized; whereas the RUN command is an example that refer- 
ences an existing JCL procedure. The JCS for this existing procedure ap- 
pears in table 2-6. To clarify this example, table 2-7 lists the keynames 

| that appear in table 2-6 that the JCL Translator recognizes, together with the 
default parameters and the default override labels for each keyname. If both 
a default value and an override label appear for the parameter, then it can be 
modified at runtime. If no default value is listed, then the parameter must 
be specified at runtime. If no override label is listed, then the parameter 
cannot be modified at runtime. Following the submittal commands in the fig- 
ure are the extended JCL commands. These commands constitute the input 
to the JCL translator. 


The figure displays, one above the other, all possible options for supplying 
job step information to the JCL translator. Dotted lines illustrate the points 
of convergence for the options. For example at the beginning of the line 
labeled ''New File Specification", the three possible means for specifying file 
types appear as follows: 


/INDEXED, KEYLEN=<klchar <30>, 
RELREC, LRECL=<Irchar>----- 
LINKSEQ ------------------- : 


This notation indicates that immediately following the slash (/) one of the 
three forms must be used to designate the file type. The dotted line indicates 
that all of the forms must be immediately followed by a comma before enter- 
ing the next parameter. 


Change 1 | 2-30 Digital Systems Division 


WO 943005-9701 


JOB SUBMITTAL COMMANDS 


JOB //JOB <jsname> <userid> FILE=(<volume>,<fileid>,<filnam>,<pswd>) 
Command FILE=(<volume>,<fileid>,<filnam>) 
a 
2 
RUN 
Command //RUN Be gt nese anes ay oes ,DOBJ=DISC<n>, FOBU=(<volume>,<fileid>,<filnam>), REP; em eee | 
/ / AS. ye KN OLD; 
i iy 8 / 3 a ‘6 B /# 3B NEN Sess 
Ae 2 2 ee 2 ee 2 dg? Pe ‘ | 
EXTENDED JCL COMMANDS (JCL TRANSLATOR INPUT AOE UE LOGOUT RENT rete eri eRe | 
| 
Se | | x. 2 | 
Control . /DELETE <jcsnam> DS ee eee cet Motes Neca ety Sees ye, Sian ee et ad ee | 
Commands /REPLACE eae snalle 


acco <jcsnam> _4 


Execute wae OBJV=<volume>, OBUN=<userid>,OBJF=<filnam>, OBJP=<pswd>, MEMT=<stksiz> sMENU=<jarea>, MEMJ= =<jJearea>,PRTL=<nprty>, PRTS=<jsprty>, TIME=<seconds>,PRIV 
Command OBJ=(<volume>,<userid>,<filnam> .<pswds) =o aa! MEM=(<stksiz>,<jarea>,<jearea>) ————-@»’ PRTY=(<nprty>,<jsprty >)» <-1> PROT 


pe 


ASSIGN /ASSIGN LUNO=<lun>, DEVICE=<devnam>, EXCLUSIVE ,RELEASE ,FILDIR=<fileid>, FILNAME=<fi 1nam>, PASSWORD=<pswd>, BUFFERS=<nbufs>, REPLACE; ~- 
Command <Jun>,<devnam> —- —-—— —e/ SHARE ——@ ‘ ie | FILDIR= TEMP , oe’ pb > d > OLD; 
pg > / 4 rtLe=(<Filedds, <filnam>,<pswd>)_ oe ! NEW ocat 
i FILE=(<fileid>,<filnam>) —~— ——————— + , | 
Boe Juha de JEIGES (TEMP ,<fiInam>,<pswd>)— —- ——-—— ———/ > 
Sy Ee a ey ee FILE=(TEMP <filnam>)-~—~—~——~~~-~-~~ 
2 
New File Ly INDEXED, KEYLEN=<k1 char<30>, READCODE=<integ>,WRITCODE=<integ>,DELCODE=<integ>,EXECODE=<integ>, DELETE, INITIAL=<itrks>,LOCN=<trknum>, PRECL=<prwrds> ,MAXTRACK=<mtrks> 
Specification RELREC ,LRECL=<Irchar>—- — _/ ACCESS= (<integ>,<integ>,<integ>,<integ>) -—-————-———-—-— m “SAVE 3” ALLOCATE= (<itrks>,<trknum>,<prwrds> <mtrks>) 
LINKSEQ— — ~~-~—-— —»’ b—- 
> 7 > b> 
End of job /END 
Command 
NOTES > Refer to section 2.4.1.5 for file default on JOB Command. > No further input required for non file devices. 
>> The RUN Command given here is an example. Refer to > BUFFERS = 1 for RELREQ and LINKSEQ; > 1 for INDEXED 
table 2-5 for the referenced JCS 
Leese ‘> <integ> must be one of following: 
3> Refer to table 2-6 for defaults specified in the ANY ,PSWD ,CREAT ,NONE . 
referenced JCS 
~ To> PASS and DELETE cannot be specified simultaneously. 
4 DELETE does not require further input. 
> -] designates infinite run time. 
16 Refer to table 2-6 for standard defaults. 
(B)129979 Figure 2-1, JCL Translator Formatting 
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Table 2-6. Job Control Sequence (JCS) for RUN Command Example 


o® CREATE JCL »COMMENT, *CREATE Jct PROCEDURE ” 

/REPLACE JCL « CREATE JCL PROCEDURE , 

/EXEC OBJsC1,SYSTEM/JCLTRN) MEM*(396,7558.1888) PRTYSC1,15)3 

rd _ TIMEsel MEMSsMEM PRTYssPRI ; 

/ASSIGN 1 SC DEVICEssDSRC FILEssFSRC BUFFERS#1! p SOURCE INPUT 
/ASSIGN 2 $C DEVICESaDERR SHARE: sSERR « ERROR MESSAGE 
/ASSIGN 3 SC _ ~—DEVICEssDLST FILEssFLSYT SHAREssSLST BUFFERS#1.SOURCE |.ISTING 
ASSIGN 4 DISC{ DEVICEssD08J FILEs(SYSTEM,SJCBFL.»AB)3 

/ FILE:sFOBJ REPLACE: sROBJ AUFFERS#2 INDEXED: 

/ ACCESS#(ANY,ANY,ANYSANY) ACCESS38COBJ}3 : 

/ ALLOCATE#(1,8,96,28) ALLOCATES#LOBJ KEYLENS6 - OBJECT OUT FILE 
ZENO 


Table 2-7. Parameter Keynames and Defaults for JCS Example 


Abbreviated JCL 
Extended JCL Keyname Default Ouse necia pel 


(1, SYSTEM, JCLTRN) 


(300, 7600, 800) 


(1,15) 


LINKSEQ/RELREC/INDEXED | 


INDEXED | : 


ACCESS 
ALLOCATE 


(ANY, ANY, ANY, ANY) 


| | 
| | 
DEVICE SC DSRC | 
FILE ~ FSRC 
BS aeons tc dae esll eaten ieens PT eT eee 
LUNO | Z | | 
DEVICE ee eee ee (eee DERR 
LUNO 3 ; | 
DEVICE sco | Dist 
LUNO : ; 4 | | 
DEVICE DISCl DOBJ 
FILE (SYSTEM, SJCBFL, AB) FOBJ 
OLD/NEW /REPLACE OLD -/NEW /REP | 
| 


KEYLEN 
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SECTION Iil 
INPUT/OUTPUT STRUCTURE 


3.1 GENERAL 


A user program initiates input/output operations with an Input/Output Super- 
visor Call (I/O SVC). The SVC is an illegal machine instruction that gener- 
ates an internal interrupt. The internal interrupt decoder turns control 
over to the SVC processor. After determining that an 1/O SVC has been 
made, the SVC processor gives control to the I/O Management portion of the 
operating system. A set of modules, called Device Service Routines (DSRs), 
handles the primary I/O workload. 


A Device Service Routine contains several logical paths. When an 1/O SVC 
is made, the system follows the initial entry path. The initial entry path be- 
gins the 1/O operation and may or may not complete it. I/O device interrupt 
processing follows another path through the DSR. I/O interrupts can occur 
from the I/O Bus or the Direct Memory Access Channel (DMAC) of the com- 
puter. They occur while an I/O operation is in progress or when it is finish- 
ed. Interrupts from the I/O Bus typically occur on a character-by-character 
basis. Interrupts from DMAC devices occur only when the operation is com- 
plete. The system also has a reset path through the DSR to stop uncompleted 
I/O and to initialize the device and DSR. Separate operating system modules, 
working with a disc DSR, control file management for the disc. Section IV of 
this manual describes DX980 file management. 


3.2 I/O SUPERVISOR CALLS 


The I/O SVC is made by attempting to execute one of two illegal machine 
instructions: >C380 or >F800. The programmer usually defines the I/O 
SVC instruction word with a symbolic name using the OPD (Operation Defini- 
tion) assembler directive. To complete the call, the M-register must con- 
tain the address of either a Physical Record Block (PRB) for the C380 in- 
struction, or an argument list for the F800 instruction. The PRB is a list 
of parameters describing the I/O operation that has been requested. For 
example, if the programmer defines the I/O SVC as IOC (using OPD), a 
typical I/O call using the C380 machine instruction would be coded as 

shown on the following page. 
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SAP ROLC 
SHEET anat 
agai TOT SAMPLE 
C782 « 
Oras 
aeee INC OPN eC 3RA,3 NEFINE rnc 
GAOe 
AAAE 
CAAA {AAA BAA, @LNM ePRA PRB ANDAR TO MREG 
P BAGL AAAS 
BAB? C3SP AAaR joe a SVC INSTRUCTION 
Vit l-r CE PERCE E ES EROS EEE EC EOESAESE SLEEPS EL ERE RES ERE SE EE 
QAIG « 
@A03 aaAae BALI PRB HaTa a NEFINE PRB 
Ale . 
aAAgae Bars ENN 


The F800 instruction is a special form of the more general F8XX format. 
The letters XX indicate the SVC number to be executed (Section V lists addi- 
tional SVC numbers). Using this format, the M-register must point to an 
argument list with the following arrangement: 


e Word 0 - This argument list word specifies the number of argu- 
ments in the list. Word 0 of anI/O SVC contains al. If the SVC 
has no argument, word 0 contains a 0. 

® Word 1 - This argument list word contains a pointer to the first 
argument. Word 1 of an1/O SVC points to the PRB. 

a Word 2 through word n - These argument list words contain pointers 
to arguments 2 through n, respectively. These arguments do not 
apply to an I/O SVC since the PRB is the only argument. 

SAP RALC SHEFEY QAa! 
aaa TOT SAMPLE 
gage ane2 fo Fou @ 
vans svx nen »Faaa,8 NEFINE SVX 
@A04 «@ 
eaas « 
apan 1890 aane @LOM #ARGLST LIST ANDR TO MREG 
p a7ai 8Ae@s 
vrue FROP apa7 Svx IO | EXFCUTE CALL 
a°e8 « 
gags 
BALE weet ante eee een eHEe Re HHAEHNN Eee HH ee Eee Ss 
OFPl1 
BAGs AB1 B12 ARGLST MATA 1,PRB UNCER SSE nDee 
Pp wAaa anas 
GAs 
goas wnge gaié PRA DATA A NEFINE PRB 
aAis e 
vagr wale ENN 
3-2 
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3.3 PHYSICAL RECORD BLOCK 


The Physical Record Block (PRB) is the list of parameters necessary for 

the supervisor to perform an I/O operation. The PRB is either four or five 
words long as shown in figure 3-1. The following paragraphs explain the use 
of these parameters. Variations of this PRB structure occur for non- 
standard I/O operations. Also, AD/DA and data module devices use a slightly 
different PRB format. Refer to the description of these device characteristics 
later in this section. 


3.3.1 WORD 0 


PRB Word 0 contains flags that are controlled by the operating system I/O 
routines, and a logical unit number specified by the calling program. 


3.3.1.1 BIT 0 (BUSY BIT). Bit 0 applies only to Initiate I/O calls. This 
bit is set during the I/O operation. When set, this bit indicates that the pro- 
gram should not disturb the PRB or referenced data buffer. 


3.3.1.2 BIT 1 (ERROR BIT). Bit 1 sets if an unrecoverable I/O error 
or a logical error (see bit 6) was detected in the last operation performed 
using this PRB. This bit resets if no error was detected. If Return on I/O 
Errors was not requested when the device was opened, the job aborts onan 
unrecoverable I/O error. If this bit is set following a Return, then PRB 
word 2 contains an error code greater than 200. Appendix A of this manual 
defines these error codes. 


3.3.1.3 BIT 2 (END OF FILE BIT). Bit 2 sets if the last record read 
with this PRB was an end of file. For most media an end of file is a record 
whose first two characters are /*. End of File applies only to reading and 
spacing opcodes. (Opcodes 00, 01, 05, 06, 14 and 15.) 


3.3.1.4 BIT 3 (OPCODE IGNORED BIT). Bit 3 sets if the last I/O opera- 
tion was ignored because of the physical limitations of the I/O device. For 
example, an attempt to backspace a card reader sets this bit. Opcode Ig- 
nored is not necessarily an error condition. 


3.3.1.5 BIT 4 (END OF MEDIUM BIT). Bit 4 sets if the physical end of 
the storage medium was reached. Magnetic tape, cassette, and disc files 
provide end of medium detection. 


3.3.1.6 BIT 5 (BEGINNING OF MEDIUM). Bit 5 sets if the physical be- 
ginning of the storage medium was reached. 
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WORD 0 


WORD 1 


WORD 2 


WORD 3 


WORD 4 
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WHEN SET AT 
OPEN TIME 


WHEN SET AT 
RUNTIME 


OP CODES 00-29) 


WHEN SET AT 
RUNTIME 

(OP CODES 
100-119) 


LOGICAL UNIT NUMBER (LUN ) 


0 1 
ia eal 


eee FLAGS SET BY SYSTEM ea 


INITIATE 
170 


RETURN 
SEVERE 
ERRORS 


RETURN 
CORRECT— 
ABLE 
ERRORS 


OPEN 
FOR EX- 
CLUSIVE 
ACCESS 


DEVICE 
Loo 


FILE 
WRITE 
VERIFY 


1/0 OP CODE 


J initiaTE | ouTPuT 
{70 


DEVICE 
way 


NOTES: 
() MAGNETIC TAPE, CASSETTE AND DISC FILE ONLY 
@) DATA TERMINAL ONLY 
G) APPLIES TO PRINTING DEVICES ONLY 
IF BOTH LOCK AND UNLOCK ARE SPECIFIED, THE 


DEVICE/FILE IS LOCKED FOR THE DURATION OF 
THE 1/O OPERATION 


KEY KEY 
SPECIFIED] RECOVERY 
DESIRED 


FILE 
WRITE 
VERIFY 


INITIATE 
170 


FLAGS SET BY USER 


| DATA RECORD LENGTH 


DATA BUFFER ADDRESS/DEVICE ATTRIBUTES (OPEN CALL) 


| KEY ADDRESS (CERTAIN DISC FILES ONLY, SEE SECTION IV) 


Figure 3-1. Physical Record Block (PRB) Format 


lf 
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3.3.1.7 BIT 6 (LOGICAL ERROR). Bit 6 sets to indicate than an error 
occurred that may have been a successful request under other conditions. 
A Logical Error applies only to file management. For example, a write 
with key to a key indexed file when the specified key already exists. When 
bit 6 is set, bit 1 is also set. 


2. 8 BIT 7 (OPERATION TERMINATION). Bit 7 sets when the escape 

key (ESC) of any data terminal is pressed, terminating any input or output 
cord in progress without completion. For read operations on key indexed 
es 


, this bit indicates the return of a key value. 


3.3.1.9 BITS 8-15. This field contains the Logical Unit Number (LUN) 
for the I/O Operation as specified by the calling program. 


3. 36c° WORD I 


PRB Word | contains flags that are set by the user program, plus an opcode 
for the I/O operation as specified by the user program. The opcode appears 
in bits 8 through 15 of word 1. The flags appear in bits 0 through 7 cf word 
1. The function of these flag bits varies with the time that the bit is set and 
the operation being executed. The following paragraphs describe the function 
of the flags under the three possible circumstances. 


3.3.2.1 OPEN TIME FLAGS. If the calling program sets a user flag in 
word 1 when opening an I/O device or a file, the operating system assigns 
the following definitions to the flags: 


® Bit 0 - Initiate I/O: The calling program sets this bit to indicate 
that it is making an Initiate I/O call. When clear, this bit indicates 


Tee El de | Ae ea ee ie Lees Tsk an See ery ee na 
that tne PrOopgraln 15 frakiip aii Execute I/O call. 


® Bit 1 - Return on Uncorrectable Severe Errors: The calling pro- 
gram sets this bit to prevent the system from aborting the program 
if an uncorrectable severe error occurs during an I/O operation 
with the opened device. Instead, the system returns control to the 
calling program to recover from the error. 


e Bit 2 - Return on Correctable Error: The calling program sets this 
bit to prevent the system from asking for operator assistance if a 
correctable severe error occurs during an I/O operation with the 
opened device. Instead, the system returns control to the calling 
program with bit 1 in word 0 set to recover from the error. 


e Bits 3 through 6 - These flags are unused during an open call. 


e Bit 7 - Open for Exclusive Access: The calling program sets this 
bit to indicate that the file or device being opened by the call cannot 
be shared, but must remain in exclusive control of the calling pro- 
gram until released. 
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3.3.2.2 RUNTIME I/O FLAGS. If the calling program sets a user flag in 
word 1 at runtime when requesting an I/O operation (Opcodes 00 through 29), 
the operating system assigns the following definitions to the flags: 


Bit 0 - Initiate I/O: The calling program sets this bit to indicate 
that it is making an Initiate I/O call. When clear, this bit indicates 
that the program is making an Execute I/O call. 


Bit 1 - Output with Reply: If the calling program sets bit 1 and the 
I/O device is a data terminal, the terminal performs an output, 
usually a question, and waits for areply. If multiple programs 
are using a data terminal, the reply is given to the correct pro- 
gram. If the 1/O is assigned to a device other than a data terminal, 
setting bit 1 produces an input operation only. 


Bit 2 - Automatic Record Termination: When bit 2 is set, data ter- 
minal input is automatically terminated upon reaching the input 
record length. Normal termination occurs when a carriage return 
is pressed. 


Bit 3 - Formatted USASCII Output or Suppress Bell on Input: When 
set during an output call, this bit instructs printing devices to use 
the first word of the output record as form control instead of data. 


Table 3-1 lists these form control characters. This function applies 
only to a Write USASCII output. When this bit is set during an input 
call, it prevents the bell on the input terminal from sounding. 


Bit 4 - Suppress CR/LF Echo on Input: Setting bit 4 prevents the 
data terminal from echoing an input of CR/LF. 


Bit 5 - File Write Verify: Setting this bit enables verification of 
disc data after writing. Use of this bit is described in the File 
Management Documentation in Section IV of this manual. 


Table 3-1. USASCII Format Control Word 


Reserved for future expansion. Should all be 0. 


Format before record. 
Format after record. 


No carriage-return 
Carriage-return 


No line feed 
Line feed 


No form-feed or second line feed 
Form-feed or second line feed 
(depending on Bit 14) 


3-6 Digital Systems Division 


WO 943005-9701 


e Bit 6 - Device Unlock: Setting this bit allows other jobs to use a 
shared device that has been previously locked to the calling program. 


e Bit 7 - Device Lock: Setting this bit prevents other jobs that may be 
sharing the device from using the device until the device is unlocked. 
If both bit 6 and bit 7 are set concurrently, the device is locked until 
the I/O operation is complete. 


3.3.2.3 RUNTIME FILE FLAGS. If the calling program sets a user flag 
in word | at runtime when requesting a file operation (opcodes 100 through 
119), the operating system assigns the following definitions to the flags: 


e Bit 1 - Initiate I/C: The calling program sets this bit to indicate 
that it is making an Initiate I/O call. When clear, this bit indicates 
that the program is making an Execute I/O call. 


e Bit 1 - Key Specified: When set, this bit indicates that the calling 
program has specified a key to locate the desired file. The address 
of that key is contained in word 4 of the PRB. 


® Bit 2 - Key Recovery Desired: Setting this bit instructs the oper- 
ating system to recover a key and place it in the location specified 
in word 4 of the PRB if the record accessed has a key and bit 1 of 
PRB Word 1 (Key Specified) is not set. 


e Bit 3 - Return Record Size Only: Setting this bit transfers the 
length of the accessed record into the Data Record Length field of 
the PRB (word 2). No data transfer occurs. 


e Bit 4 - Unused for file management. 


e Bit 5 - File Write Verify: Setting this bit enables verification of 
disc data after writing. Use of this bit is described in the File 
Management Documentation. 


e Bit 6 - File Unlock: Setting this bit allows other jobs to use a 
shared file that has been previously locked to the calling program. 


e Bit 7 - File Lock: Setting this bit prevents other jobs that may be 
sharing the file from using the file until the file is unlocked. If 
both bit 6 and bit 7 are set concurrently, the file is locked until the 
I/O operation is complete. 


3.3.3 WORD Z 


Word 2 contains the data record length in characters for the I/O operation. 
Depending upon the type of I/O call, this field has various interpretations. 
For an open or change record length call (opcodes 7 and 12, respectively), 
this word sets the input record length for the logical unit. This record length 
limits the number of characters stored on subsequent input calls. For an in- 
put call, the I/O routines load this word with the number of characters actual- 
ly contained inthe input record. For an output call, this word contains the 
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actual output character count. For utility operations such as back space or 
forward space, this word indicates the number of operations to perform. At 
the termination of these utility operations, the system returns the number of 
operations that were not performed (that is, Word 2 contains ''0'' if the opera- 
tion was successfully completed, and a number greater than zero if the sys- 
tem encountered an EOF or BOF before reaching the prescribed number of 
backspace or forward space operations). For operations on an AD/DA de- 
vice, this word is zero. 


When a return on error is specified (Bit 1, Word 0 set) and an error does 
occur during the specified operation, this word contains an error code great- 
er than 200 (Appendix A describes the error codes for the system). When 
this occurs, the word must be reset before issuing another I/O request using 
this PRB. Table 3-2 summarizes the functions of PRB Word 2. 


3.3.4 WORD 3 


Word 3 contains the data buffer address which is the starting address of the 
logical data buffer for input and output operations. 


An open call causes the device attributes word to be placed in word 3. There- 
fore, the data buffer address must be placed in word 3 following an open call. 


Table 3-2. PRB Word 2 


User/System Set 


Open Input record length specifica- 

tion (limit of number of char- 
Change record acters transferred on subse- 
length quent input calls) 


Input Input record character count 
Output Output record character count 


Back/forward space Number of operations to per- 
form 
Number of operations unper- 
formed 


Return with error Unchanged if no error occurred 
during operation 
Error code >200 if error oc- 
curred during operation 


Data Module Output data 
AD/DA Converter Zeros 


el 
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3.3.5 WORD 4 


Word 4 contains a key address that applies only to key indexed or relative 
files. Section IV of this manual explains disc files. 


3.4 FUNCTION OF SPECIFIC OP CODES 


Before a program can perform an I/O operation to a device or file, the pro- 
gram must open the device or file. An open call prepares the device or file 
to do an I/O operation. After the program finishes with the device or file, 

it should close the device or file. Closing a device or file does not unassign 
it from the job; it can be re-opened later and used again. Closing does ini- 
tiate proper end-action for the device to ensure that no data is lost. Devices 
are opened and closed using I/O supervisor calls. 


When the program makes an open call, the I/O routines place the device 
attributes word in PRB Word 3. Table 3-3 summarizes the device attributes 
for standard 980 peripherals. Table 3-4 defines the function of I/O operation 
codes (op codes). 


Table 3-3. Device Attributes Word after Execution of an Open Call 


System console 


1 1 Dummy device 
Z ] Can be rewound 
5 1 Can be forward spaced 
4 1 Can be back spaced 
5 i Printing device 
6 1 Model 733 ASR cassette 
7 1 Data terminal or CRT 
8 i Disc 
9 1 Input device 
10 ak Output device 
1] ] USASCII transmission 
12 1 Binary transmission 
Lo 1 Reserved | 
14-15 00 Peripheral device 
14-15 Ol Linked sequential file 
14-15 10 Relative record file 
14-15 1] Key indexed file 
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Table 3-4. Input/Output Opcodes 


Decimal PRB 

Opcode Words Operation 
00 4 Read USASCII 
Ol 4 Read Binary 
02 4 Write USASCII 


Function 


One logical record is read from 
the specified LUN and stored in 
memory at the specified buffer 
address. The characters are 
packed two-per-word and the 
maximum number stored does 
not exceed the data record 
length specified in the last open 
or change record length call. 
The actual number of characters 
stored is returned in PRB Word 
2, and may be less than or equal 
to the requested input data rec- 
ord length. Any needed conver- 
sion to obtain internal USASCII 
representation of the data is 
performed. An end of file rec- 
ord, when detected, will set the 
EOF BIT. The most significant 
bit of all USASCII characters is 
equal to a l in memory. 


One logical record is read from 
the specified LUN and stored in 
memory in a manner similar to 
that described for Read USASCII. 
A character in this case is an 
8-bit byte, and any necessary 
data conversion to obtain the 

inar v format performed. 
Eind of file records are detected 
and cause the EOF BIT to be set. 


One logical record is transferred 
from the specified buffer address 
to the indicated LUN. The num- 
ber of characters transferred is 
specified in PRB Word 2, and 

the data is packed two characters- 
per-word. If the formatted 
USASCII record bit (PRB Word 1 
bit 3) is al, the printing DSR's 
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Table 3-4. Input/Output Opcodes (Continued) 


Decimal PRB . | 
Opcode Words Operation Function 


02 will interpret the first word in 
(Cont'd) the buffer as form control. Any 
necessary conversion from the 
internai USASCII representation 
to the medium storage format is 
performed. 


03 4 Write Binary One binary record is transferred 
from the specified buffer address 
to the indicated logical unit. The 
number of characters transmit- 
ted is taken from PRB Word 2. 
Any necessary conversion from 
binary to the medium storage 
format is performed. 


04 2 Rewind The physical device or sequential 
disc file is positioned at the be- 


05 3 Back Space The number of logical records 
Record specified in PRB Word 2 are 
skipped in the reverse direction. 
When an end of file record or be- 
ginning of medium status is de- 


; : 
tected, the operation stops with 


the appropriate PRB bit set and 
the operation count decremented. 
If an end of file caused the stop, 
the medium is positioned in 
front of the end-of-file record. 


06 3 Forward Space The number of logical records 
Record specified in PRB Word 2 are 

skipped in the forward direction. 
When an end of file record or end 
of medium status is detected, the 
operation stops with the appropri- 
ate PRB bit set and the operation 
count decremented. If an end of 
file caused the stop, the medium 
is positioned to the beginning of 
the record that follows the end of 
file record. 
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Decimal 


Opcode 


07 


08 


09 


10 


i 
12 


ES 


14 


Table 3-4, 


PRB 
Words 


Operation 


Open 


Open Rewind 


Close 


Close, Write 
EOF 


Write EOF 


Change Record 
Length 


Read Device 
Status 


Back Space File 


Input/Output Opcodes (Continued) 


Function 


Initialize the logical and physical 
devices. PRB Word 2 sets the 
maximum input record length. 
The device attributes are re- 
turned in PRB Word 3. 


The I/O device is opened and re- 
wound as previously described. 


The necessary functions to ter- 
minate I/O to a device are per- 
formed. 


An end of file record is written 
and the device is closed. 


An end of file record is written. 


The maximum input record 
length is changed as specified in 
PRB Word 2. 


The Device Status Word is placed 
in PRB Word 2. The Device 
Status Word is device dependent 
and is individually described 
with each DSR in this section. 


The number of files (as delimited 
by end of file records) specified 
in PRB Word 2 are skipped in 
the reverse direction. If the 
start of the medium is encoun- 
tered, the operation stops with 
the beginning -of-medium flag 

set and the operation count decre- 
mented. Otherwise, the end of 
file bit is set. The medium is 
always positioned at the begin- 
ning of the first data record in 

a file. A backspace of one file 
remains within the current file 

so that if it is preceded by 
another backspace file it does 
nothing. A backspace two files 
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Table 3-4, Input/Output Opcodes (Continued) 


Decimal PRB 


Opcode Words Operation | Function 
14 actually skips one file. A back- 
(Cont'd) space record can be used to 
cross an end of file record in the 
reverse direction. 

15 3 Forward Space The specified number of end of 

File file records are skipped in the 
forward direction. If the end of 
the medium is encountered, the 
operation stops with the end of 
medium bit set and the operation 
count decremented. Otherwise, 
the end of file bit is set. 

16 2 Unload Magnetic tape and cassette units 
are rewound and unloaded. Mag- 
netic tape units are placed off- 
line. 

17-18 Reserved Ignored by all DSR's. 
19/20 Write /Read Device dependent calls supported 

Direct by some DSR's for transfer with- 


out data conversion. Data formats 
are described with individual DSR 


description in this section. 
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3.5 INITIATE AND EXECUTE I/O CALLS 


The calling program sets bit 0 in PRB Word 1 to signify Initiate I/O call and 
clears bit 0 to indicate Execute I/O call. The Execute call suspends the 
user program until the entire I/O operation is completed, making the I/O 
appear to be a single, instantaneous operation of the calling program. Ina 
system with many programs executing, the Execute call does not degrade 
total system efficiency since other programs are executed during the I/O 
call processing time. When one or a small number of programs are running 
in the system, the computer is substantially idle during the I/O transfers. 


If the Initiate/Execute Bit is al, the system returns to the program for fur- 
ther execution immediately following an I/O SVC. A program that is fre- 
quently used and has high I/O activity can use the Initiate Call to increase 
program throughput and attain maximum speed from I/O devices. The PRB 
from which an initiate I/O call has been made and its associated data buffer 
should not be modified until the I/O operation has been completed. The pro- 
gram can monitor the PRB Busy Bit (Word 0, bit 0) to detect completion of 
the 1/O (if the Busy Bit is al, I/O is not complete). Doing an Initiate I/O 
call to a device while a previous call to the same device remains incomplete 
suspends the job until the first call is complete. 


If an Initiate I/O call has been issued and processing is complete to the point 
that the I/O operation must be complete in order to continue, use the Wait 

for I/O Complete supervisor call to suspend the program. This SVC converts 
the Initiate call that shares the same PRB to an Execute call. 
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A typical Wait for I/O may look as follows: 


SAP ROLC 
SHEET amat 
@ABi IOT SAMPLE 
PAgR Baal WAIT FOU 22h 
“AAS SVC OPH »>FBa8,B AFFINE SVC 
AAKS 
AAAe 
BAAA {AAP BAAE @LOM BARGLST LIST ANDR TN MREG 
P @FA1 AAAs 
" @AAD FRQR GOAT Svc wart FXFCITE CALL 
AAR -«# 
Q@AUG 
AAT ee R RARE RHEE HAART EHH REE HERE HERETERNES 
AAT] ] 
BFPAS AMA! aAie ARGLST DNATA 1,PRB NUM ARGS, ADDRS 
P BAAA AAAS 
Aais e 
2948S A222 AALS PRB DATA >8A22 LUNO »99 
@aaae gage gas DNATA 2»Q~AagQ WAS FRMTYTD wRITE 
OAAF7 BABA AALA MATA 10 A CHROFMT ENTRIL 
P 8AG8 Arno BAY7 PATA BUFFER ADRAR OF DATA 
are{s * 
AAIG « 
@209 AARK BAZe RUFFER DATA 20096, !SAMPIE,! 
@9@4 OCI 
BAAR CNOA 
a9ec cccs 
@AAN AFFF 
AF21 
AABA YWABE ENN 


3.6 STANDARD USASCII RECORDS 

DX980 uses two types of USASCII records, formatted and unformatted. An 
unformatted record is a versatile record that is used to take advantage of 
special characteristics of a device. Therefore, unformatted records are 
usually installation and device dependent, whereas formatted records rely 
on the DSR to allow for specific device characteristics. 


Formatted USASCII records use the first word of the record to control phy- 
sical device formatting on printing devices. To output an 80-character rec- 
ord in the formatted USASCII mode, the program must make a call for 82- 
characters. The extra two characters are the first word that contains format 
control. Similarly, when an 80-character formatted record is read, the 
program must make an input call for 82-characters to ensure that the entire 
recordis read. The program can ignore the first word. 


To use the formatted USASCII mode, bit 3 of PRB Word 1 should be set to a 
1. Bit 3 is meaningful only for a Write USASCII operation (Opcode 02) that 
is directed to a printing device. Storage devices write the format control 
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character at the beginning of the data without modification. However, al- 
ways set bit 3 to ensure device independence if the designated output device 
is changed. 


The format control is not punched on paper tape, since that medium assumes 
a one-record-per-line format regardless of the format specified. 


3.7 I/O ERRORS 


Three types of errors are possible when executing an I/O operation: logical 
errors, severe errors, and fatal errors. Two of these types, logical and 
fatal errors, result from an error in the calling program. The other type, 
severe, results from a malfunction of the I/O device. When severe and fatal 
errors occur, the operating system prints an error message on the system 
console. This message contains an error number that identifies the type of 
error and the reason for the error. Table 3-5 lists the error numbers for 
I/O errors, their level of severity, and the cause of the error message. 

The following paragraphs describe the three types of errors. 


Table 3-5. I/O Errors 


Error 
Number 


Severity Description 


Device Not Ready 


Severe Correctable 


Severe Uncorrectable Controller Error 


Data Error 


Severe Correctable 


Severe Uncorrectable Controller Busy Error 


Severe Correctable Write Protect Error 


Severe Uncorrectable 


Eind of Record Sequence 
Error 


Read-After-Write 
Error 


Offline 


Severe Uncorrectable 


Severe Correctable 


Fatal 


Illegal I/O Opcode 


3.7.1 LOGICAL ERRORS 


Logical errors occur only during file management operations and are the 
result of an error in the user call. For example, a user call to create a 
record with key when the key already exists in the file. This type of error 
is not catastrophic to execution of the program. Therefore, when a logical 
error occurs, the operating system returns control to the calling program 
so that it can take an alternate course of action. When the system returns 
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control to the program, it also sets the Logical Error and Error flags in the 
PRB (word 0, bits 6 and 1), and places the error number of the error in the 
Record Length field of the PRB (word 2). 


3.7.2 SEVERE ERRORS 


Severe errors occur during I/O operations and are the result of a status 
condition of the peripheral device that prevents it from performing the re- 
quested I/O operation. The error condition may be correctable through 


dela see ma ambtahina 
pE UNncorrecraoiée,. 


operator intervention, or it may 
3.7.2.1 CORRECTABLE. A correctable severe error results from a 
status condition of the I/O device that the operator can fix. For example, a 
printer that is out of paper or a card reader offline causes a correctable 
error if the system can detect the required status condition. When such an 
error occurs, the system prints a message on the system console asking the 
operator to decide if he can correct the malfunction. The operator responds 
either by correcting the condition and then entering the response YES, or by 
entering the response NO. If the operator enters a NO response, the error 
becomes uncorrectable. If the operator enters a YES response, the system 
retries the operation. 


The user can choose to bypass the operator notification step and return 
directly to the calling program when a correctable error occurs. Setting 
PRB word i, bit 2 during the SVC that opens the I/O device selects this 
option. If the site does not have a full time operator, this option allows the 
user to select an alternate I/O device rather than wait for the operator to 


correct the malfunction on the original device. 


3.7.2.2 UNCORRECTABLE. A severe error becomes uncorrectable if the 
operator enters a NO response to the system's request for a correctable 
error, or if the faulty status indication from the device is the result of an 
inherently uncorrectable error such as failed components in the peripheral 
interface. Uncorrectable severe errors abort the associated program. How- 
ever, the user can choose to avoid this outcome by setting PRB word 1, bit 

1, during the SVC that opens the I/O device. Setting this bit instructs the 
operating system to return control to the user program if an uncorrectable 
severe error occurs. When selecting this option, the user program must 
allow for alternate devices or remedial routines to cope with severe errors. 


3.7.3 FATAL ERRORS 


Fatal errors are the result of errors in the user program that cannot be 
reconciled by returning control to the program. For example, a call to read 
information from a line printer is impossible to execute. Since the error is 
part of the program or job control coding, the program is unable to adjust for 
the error. Fatal errors abort the associated program. This outcome can- 
not be avoided. . 
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Full Duplex 
Terminal 


Paper Tape 


Reader 


Response From Device 


Paper Tape Card Magnetic Line Tape 
Punch Ee! yn er! ee a pe a SEES | File 


Relative 
Record File 


Sequential 


Key-Index 
File 


Read USASCII Returns EOF Responds Responds [}, > Error At least 1 Responds (Er- | Error | Error (Error if after  (Eeror if after | (End of medium | Responds Responds i> 
(/* = EOF) {/* = EOF) card read ror if after output}(/* = if after output) 
(/* = EOF) [>] output) EOF) & 
o1 Read Binary Returns EOF Error Responds > Error At least 1 Responds (Er- Error (Error if after (End of me- Responds Responds b> 
(/* = EOF) card read ror if after output)(/* = dium if after 
| (/* = EOF) [> output) EOF) > output) 
02 Write USASCITI Responds Responds Error Responds Error Responds Responds H Responds Responds fp 
(/* = EOF) (/* = EOF) Acts as a Acts as a 
replace/ replace / 
add add 
03 Write Binary Error * Responds Error Responds Responds [> function SPEEHOR b> 
| | (/* = EOF) (/* = EOF) | 
04 Rewind Error Generates Responds Responds Responds Responds 
| form feed 
05 Back space record i Error Error Responds Error Responds Responds Responds: EOF detection not 
| : possible, since not allowed 
| 06 | Forward space | | | Error | Responds > jaa | Responds > | Responds (Er- Error Responds [> | Responds | Responds: EOF detection not 
record ror if after | possible, since not allowed & 
; | | | | | | output) B> | | | 
| i i i 
07 | Open | | | CR/LF as Responds Responds Responds | Responds Responds Responds | Responds [> Responds Responds 
08 i Open-rewind i CR/LF output | Responds Generates Responds 
(Punches form feed 
leader) 
i ; | 
i 09 : Close i | Responds i Responds | Responds i Responds i | Responds i : i Responds Responds 
i 10 I Close-write EOF | | LF 3 lines | Error EOF Fol- | Error | | | Generates | | | | Close, but does not write 
i | lowed by i form feed I | EOF 
| | | trailer | | 
i : ' 
i ll & Write EOF i i LF 3 lines | Error 1 EOF Fol- i Error i | Generates ' ' ‘ i Error Error 
i i | | lowed by form feed | | 
| | trailer | | 
12 Change record Responds Responds Ignores ; Responds Ignores Responds Responds 
length 
13 Read device status Responds Ignores Ignores Responds | Responds Responds Responds 
i4 Back space file i Error Error Error Error Responds Error Responds | Response results in begin or 
| 25 | Forward space file | Responds Error Responds {> | Error | Responds [> | Responds > | Error | (Error if | Responds | end of medium 
after output) | 
| 16 Unload | Ignores Ignores Ignores Ignores | Ignores Responds Ignores Responds Ignores | Ignores Ignores 
{ 17 Not assigned \ i | ! | 1 i Ignores | Ignores | { 
| 18 Not assigned | Ignores Ignores Ignores Ignores | Ignores Ignores Ignores Ignores Ignores | Ignores Ignores 
| 19 Write direct | Responds Responds Error | Error | ‘Error Error | Error | Error Error | Error Error 
20 Read direct Responds Responds Responds b> Error Responds > Error | Error Error Error Error Error 
NOTES: 1 Ignores blank frames and delete (rubout) frames. 7 End of medium = current position when op complete; 11 Options allow recovery of both data record and index 
>. “Wad of wiediurs nor-detectabie; performance of op when not at EOM destroys data key, or functional deletion of both data record and 
from current position to EOM. index key from file. 
3 Reads specified number of frames and stores them 8 EOM stat tbl th a ea a : 
: ; status possi w r rd c 
packed as received into user buffer. hetawaod i eu Fane eee — 12 All characters are written directly from the buffer; 
4 DSR translates invalid columns to valid characters ” : ie ; } caution should be exercised when the device has paper 
without eseor indication. 9 opened for exclusive access, position is retrieved tape or cassette attached. 
from disc when opened and stored on disc when 
5 Stores 12-bit card image, right-justified within closed. 13. This operation expands the read ASCII key to include 
words of user buffer. Character count = 160 a set of control characters. 
for complete card. 10 The new record does not have an index key. A replace 
operation occurs if not at end of medium and both the 
6 End of medium = physical end; logical end not in- old record and the index key (if any) are deleted. Table 3 6 : 


Device Response to Sequen- 
tial I/O Commands 


dicated. 
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3.8 INDIVIDUAL DEVICE CHARACTERISTICS 


All sequential I/O devices and sequential disc files restrict the operations 
that can successfully be performed with them. For example, devices capable 
of both reading and writing cannot arbitrarily switch between Read and: 

Write modes. Other restrictions vary from device to device. Do not close 
and re-open a device to circumvent these restrictions since the results will 
vary for each device. Table 3-6 catalogues responses to I/O commands, in- 
cluding read-after-write restrictions. Most devices represent an end of file 
with a /* record, but some devices do not. Because of this inconsistency, 
always use the end of file command in lieu of a /* data record. 


3.8.1 DATA TERMINAL AND CRT DEVICES 


The Data Terminal Device Service Routine (DSR) operates with any of several 
devices interfaced using the Communications Module (TI Part Number 
966637). These devices include Texas Instruments Models 730 and 733 Data 
Terminals, Model 912 CRT, teleprinter devices similar to the 33 ASR or 33 
KSR, and the Hazeltine 2000 CRT. The DSR operates differently with each of 
these devices to compensate for operating variations of the devices. The DSR 
allows input to come from the paper tape reader device or the teleprinter type 
device. The DSR echoes input characters to the terminal as they are entered. 
For this reason the DSR does not use the terminals in true full-duplex mode. 
Performing a read direct operation with the full duplex terminal expands the 
read USASCII capability to accept the control code defined in table 3-7. 


Do not press the keys on the keyboard during a data 
transfer using either the tape cassette of an ASR 

733 or the paper tape of an ASR 33. The printer 
will not respond during the data transfer, and press- 
ing the keys may result in loss of data. 


3.8.1.1 INPUT/OUTPUT OPERATION. The PRB of the calling program 
directs output to the data terminal. If the formatted USASCII mode is speci- 
fied for output, the DSR adds carriage and form control as directed in the 
first word of the record. An input call rings the terminal bell unless PRB 
Word 1, bit 3 (Suppress Bell) is set. The DSR accepts input characters from 
the keyboard until a carriage return is selected. At that time the DSR echoes 
a carriage return - line feed to the printer. Regardless of how many charac- 
ters are typed, the number of characters stored is limited by the record 
length supplied in the open SVC. Two variations of this input operation are 
available with special PRB bits. If the Automatic Terminate Bit is set (PRB 
word 1, bit 2), the input terminates on a carriage return or full buffer, 
whichever occurs first. The second option suppresses echo of the carriage 
return - line feed when the record is terminated. The user selects this op- 
tion by setting PRB word 1, bit 4. All input characters are then echoed to 
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Table 3-7. USASCII Control Characters 


Hexadecimal | Control Control Valid Character Postabl System 
Code Function Character on Read Direct ee Special 


NULL |Shift/CTRL/p 
CTRL/a 


CTRL/x 
CTRL/y 
CTRL/z 


02 STX CTRL/b pe 

03 ETX CTRL/c X 

04 EDT CTRL/d x X(on 

output) 

05 ENQ CTRL/e x 

06 ACK CTRL/f x | | 

07 BEL CTRL/g x | 

08 BS CTRL/h x | 
09 HT CTRL/i X | 

OA LF |CTRL/; x | 

OB VT ae x | | 

0c FF |CTRL/1 x 7 ! 

om le a 

OE SO CTRL/n x 

OF SI CTRL/o x 

10 DLE aa x | | 

1] DCl CTRL/q x | | 

12 DC2 CTRL/r x | | 

13 DC3 CTRL/s x | | 

14 DC4 CTRL/t x 

15 NAK CTRL/u | > 

16 SYN ICTRL/v Xx | : 

CTRL/w X | | 
| 
| 
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Table 3-7. USASCII Control Characters (Continued) 


Hexadecimal | Control Control Valid Character P b1 System 
Function} Character on Read Direct etre Special 


Shift/CRTL/k 
Shift/CTRL/1 
Shift/CRTL/m 
Shift/CTRL/n 
Shift/CTRL/o 


the printer as they are received from the keyboard until the buffer is filled. 
Special characters are not placed in the buffer nor echoed to the printer. 
Tab and Escape also terminate an input record as described below. 


3.8.1.2 


LINE EDITING. The operating system provides several online 


editing features as follows: 


Delete Input Characters - Backspace (CTRL/H) and -— (left arrow) 
deletes one input character. On Silent 700's, the print head back- 
spaces and the DSR supplies a line feed when the first valid char- 
acter is entered. CRT's perform a left-cursor. Teletype machines 


type a backward slash (\). 


Delete Input Record - Rubout deletes an entire input record which 
may then be re-entered. 


List Input Record - CTRL/N lists the input record as currently 
stored. 


Terminate I/O - The escape key terminates any active I/O opera- 
tion. The Terminate-on-Escape Bit in the PRB system flag area 
(Word 0, Bit 7) is set. 


Tab - Tab is a special character than can be detected by the user 
program during an input call. The input is immediately terminated 
and the tab is placed in the data buffer, but the input record length 
in the PRB does not reflect its presence. 


System Mode - If the data terminal is the system console, CTRL/O 
puts the data terminal in system mode. When in system mode, any 
user output assigned to the terminal is held in a queue until the ter- 
minal returns to user mode. 


User Mode - If the data terminal is the system console, CTRL/U 


puts the data terminal in user mode. When in user mode, any sys- 
tem output assigned to the terminal is output without regard to mode. 
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NOTE 


The following features insert or delete text within 
a record and are convenient for use with a CRT 
terminal only. 


e Increase Character Count - Line Feed or | (down cursor) increases 
the input character count by the length of a line if it does not exceed 
the record size specified in the open SVC. Line length is specified 
in the Physical Device Tabie (PDT). 


® Decrease Character Count - 
acter count by the length of a line. Line length is specified in the 


PDI. 


(up cursor) decreases the input char- 


e -—(right cursor) increases the input character count by 1 if the 
input character size does not exceed the record size specified in 
the open SVC. 


e Freeze the output - While the terminal is outputting, pressing the 
control D key halts the current output. Pressing any other key 
while in this mode will reactivate the output. 


3.8.1.3 INTERACTIVE EXTENSIONS. 
are included in the DSR for data terminal input operations. They are ac- 
tivated by four separate flag bits in the PRB and may be used in several 
combinations. These flags do not apply to, and are ignored by, other device 
service routines. The features are: 


® Do not ring bell on input call. 


a TN9 not achn carria 
oe av 14vv ad Ss eh oe eu 


6 Output with reply operation. 


Four device-dependeént features 


e Terminate input automatically when the data record length is 


reached. 


3.8.1.4 OUTPUT WITH REPLY. 


The Data Terminal DSR provides a spe- 


cial output/input function for question and answer operations. Setting word 
1, bit 1 (output with reply) in the input PRB directs the system to locate an 
output PRB immediately following the input PRB. This bit should not be set 
in the output PRB. The output (second) PRB is executed first. The respond- 
ing input is executed immediately, even if multiple programs are using the 

If the I/O is assigned to a device other than a terminal, 


same data terminal. 


it is considered an input operation only. 
with reply PRB bit and execute only the first (input) PRB. 


All other DSR's ignore the output 
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3.8.1.5 FORM FEED DETECTION. The data terminal DSR detects the 
form feed function when it is issued by either a formatted output record or a 
Form Feed Character in the output data stream. The terminal outputs six 
blank lines when a form feed is detected unless the Home-on-Form-Feed 
PDT Bit is set. In that case a home cursor command is issued. 


3.8.1.6 OPEN/CLOSE OPERATIONS. An Open or Open-Rewind SVG 
causes a CR/LF to be performed. A Close causes no special action, but a 
Close-Write EOF writes three blank lines on the terminal. A Write End-of- 
File command also results in three blank lines. 


3.8.1.7 AUTOMATIC LINE CONTINUATION. The DSR can print data 
records up to twice the carriage size on consecutive lines and without data 
loss. This feature is subject to two restrictions: 


(1) The print head must be at the left margin when the record begins 
to print | 


(2) Formatted output must be used 


3.8.1.8 FORMATTED OUTPUT. This DSR supports formatted USASCII 
output. A form feed is defined as six blank lines unless the Home-on-Form- 
Feed PDT Bit is set. If that bit is set a form feed is interpreted as a home 
cursor operation. Unformatted I/O is device dependent. 


3.8.1.9 CARRIAGE RETURN DELAY. Each different terminal device re- 
quires from 1 to 5 null characters following carriage return commands to 
allow for print head travel time. The DSR checks the Physical Device Table 
(PDT) to determine the type of terminal so that it can generate the proper 
number of null characters. 


3.8.1.10 LINE FEED DELAY AND LINE CLEARING. A Clear to End-of- 
Line code is sent following line feed operations. For a CRT, this clears the 
display lines before output is done on a particular line. For other terminals 
it provides a one character delay. This delay following line feeds is equiva- 
lent to a null character. 


3.8.1.11 CHARACTER LOSS. Character loss does not occur if unformat- 
ted USASCII output with imbedded CR/LF's is used. For Silent 700's suffi- 
cient null characters are sent following a carriage return to avoid character 
loss. For other devices a single null character follows each carriage return. 
For all devices a clear end-of-line character is sent following a line feed. 
Unless the device is a CRT, this character is equivalent to a null character. 
Each line of a CRT is cleared before output is done on that line. 
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3.8.1.12 REPEAT KEY. The repeat key may be used to transfer a charac- 
ter repeatedly. The number of characters read will be echoed and printed. 


3.8.1.13 CTRL/H ON SILENT 700. The print head back spaces one posi- 
tion each time that the back space key is activated until the entire input rec- 
ord is deleted. The first new character echo following a sequence of back 
spaces is preceded by a line feed. 


~T 


3.8.1.14 CTRL/HON CRT. The cursor moves left one position each 
time that the back space or left cursor key is activated until the entire input 
record is deleted. 


3.8.1.15 CTRL/H ON ASR/KSR 33. A backward slash is typed each time 
that the back space key is activated until the entire input record is deleted. 


3.8.1.16 ERROR CONDITIONS. No task or system errors are generated by 
the Device Service routine. Read operations with timeout specified may 
cause data error indication in the PRB. (See paragraph 3.8.1.19). For de- 
tectable input errors the DSR discards the characters, echoing a Bell to the 
terminal. Opcode errors cause an abort condition. 


3.8.1.17 DEVICE STATUS WORD. A Read Device Status call reads the 
status register of the Communications Module and transfers it to the calling 
program. If bit 0 of the status word is al, the status is not valid and must be 
requested again. Bit 0 can only be set to al if the Communications Module 
receives a character between the time the DSR is entered for the read status 
and when the status is actually read. This is an unlikely occurrence, since 
the window for this to happen is less than 50us. Use of the status bits varies 
with the type of terminal. Refer to the applicable Terminal User's Guide 
listed in the Preface of this manual for the specific use of each status bit. 

The status word bits are assigned as follows: 


e Bit 0 - Invalid status if set. 

e Bits 1 through 10 - Always zero. 
e Bit 11 - Ring indicator. 

6 Bit 12 - Reverse channel receive. 
® Bit 13 - Data carrier detect. 

e Bit 14 - Clear to send. 


® Bit 15 - Data set ready. 
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3.8.1.18 PAPER TAPE INPUT. ‘The paper tape reader on the teletype de- 
vices may be used to input data as if the data was being typed from the key- 
board. The user must momentarily set the start button for each record. Each 
record must be delimited by a carriage return (CR) and at least three ''don't 
care'’ characters. All rubout characters at the beginning of each record will 
be ignored. 


3.8.1.19 USER SPECIFIED TIMEOUT ON READ OPERATIONS. Read oper- 
ations may be timed out by setting bit 5 of the user set flags or the read PRB. 
If this bit is set, word 4 of the PRB is a pointer to a one-word field containing 
a right justified, non-zero, 8-bit timeout value in seconds. A >FF specifies 
no timeout. 


The data terminal device must be opened to return on correctable errors. 
(See paragraph 3.3.2.1.) A timeout will be indicated if the error bit of the 
system set flag is set and the returned error code is a 210. 


3.8.2 MODEL 733 ASR CASSETTE 


The Device Service Routine for the 733 ASR cassette handles 1200 baud cas- 
sette units. Each cassette is treated as a separate physical device. The 
DSR is functional only if the 733 ASR is operated in the line mode for USASCII 
processing. The device must include 1200 baud and remote device control 
options. The 733 ASR must be interfaced to the computer using the Com- 
munications Module. The DSR supports reading USASCII records that have 
been recorded in the continuous mode. 


3.8.2.1 TAPE RECORD FORMATS. Some data conversion is done prior 
to the recording on tape. The conversions described in this section apply to 
both Binary and USASCII records. These conversions are performed after 
initial conversions that vary between Binary and USASCII records. 


An USASCII cassette tape record is defined as data followed by a carriage 
return character. A record is more than one physical tape block long if it is 
greater than 86-characters (including the CR). The record always begins on 
a physical block boundry. All USASCII tape records require at least one 86- 
character tape block for storage. Since a CR determines the end of a physi- 
cal record, physical USASCII records rarely correspond exactly with logical 
USASCII records that were output by the DSR. For example, if an USASCII 
record ends with a carriage return/line feed, the LF becomes the first char- 
acter of the next tape block following the rest of the record. Since the DSR 
does not pass the CR or the LF to the user when reading USASCII, this 
arrangement causes no problems. 


All USASCII records require at least one tape block for storage. Short out- 
put logical records may tend to overrun the capacity or the 733 ASR recording 
buffer in the device. For this reason the DSR adds delete characters to all 
records as necessary so that any two consecutive tape blocks contain at least 
60 characters. 
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3.8.2.2 USASCII RECORDS. To allow offline cassette preparation and 
playback, cassettes are treated as printing devices instead of storage de- 
vices. Therefore, all formatted write USASCII operations expand the for- 
mat specification into form control characters before writing on tape. For- 
matted expansion is identical to the data terminal DSR expansion. 


Since a carriage return separates records on tape, the DSR appends a CR to 
the end of any USASCII write operation that does not have at least one CR in 
the data to be written. The hexadecimal characters 10 through 14 are re- 
served control characters and are not allowed in USASCII records. If one 

of these characters is encountered, the DSR converts it to a delete charac- 
ter before transmission to the 733 ASR. A write direct operation is equiva- 
lent to a USASCII write operation and is, therefore, not supported. The most 
significant bit of an USASCII character is not written on the tape. To trans- 


fer memory image data to cassette a write binary must be used. 


The USASCII read operation passes all recorded characters from hexadeci- 
mal 20 to 5F to the caller. @WSASCII records are terminated by a carriage 
return on the tape, but the CRis not placed inthe caller's buffer. Read di- 
rect passes all recorded data, including delete and null characters. It is 
also terminated by a carriage return and the CR is passed to the caller. 


3.8.2.3 BINARY RECORDS. Each word in memory for a binary record 
is written on the tape as three 7-bit characters. For example, the 16-bit 
word: 


ABCDEFGHIJKLMNOP 
It is written on tape in three 7-bit characters as follows: 
1l0ABCD 
lEFGHIJ 
1KLMNOP 


3.8.2.4 END-OF-FILE RECORDS. An end-of-file in both binary and 
USASCII modes is a record with the first two characters being a (/*) combina- 
tion, followed by a carriage return, line feed, X-off, and more than one delete 
(rub-out) character. A write end of file command writes a /,*, carriage re- 
turn, line feed, X-off, and 256 delete characters. 


3.8.2.5 OFFLINE PREPARATION AND PLAYBACK. USASCII records 
can be prepared offline by typing with the recording cassette in the Line 
mode (RECORD switchiin the LINE position). Any cassette tape recorded 
using the USASCII write operation can be listed offline. An offline end of 
file is a ''/*'' followed by a carriage return. Binary records cannot be pre- 
pared or listed offline. 
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3.8.2.6 TAPE POSITIONING FUNCTIONS. Forward Space Record and 
Forward Space File commands operate with the DSR reading the cassette at 
its normal read rate. The Back Space Record command is not implemented. 
For USASCII records less than 86 characters each, a Block Reverse (DLE, 
8) operation is equivalent to a Back Space Record command. A Back Space 
File command assumes that the cassette was positioned at the beginning of 

a file when it was opened. The tape then block-reverses to the open point 
or to the last end of file read in the forward direction from the open point. 
The Backspace File opcode backspaces only one file. Unload rewinds the 
tape and leaves the cassette positioned on the clear leader of the tape. 


3.8.3 PAPER TAPE READERS 


The paper tape readers read 8-level paper tape in either an USASCII, Binary 
or Direct mode. Support is provided for ASR33 type devices and high speed 
paper tape readers. 


3.8.3.1 RECORD FORMATS. USASCII records are read as one tape frame 
per character. The most significant bit of each character is set to a binary 
one regardless of its state on the paper tape. USASCII records may be delim- 
ited by either of the following sets of characters: 


Reader Off (XOFF), delete, delete 
Carriage Return (CR), Line Feed (LF), delete, delete 


Records delimited by the second set of characters may have any set of char- 
acters between the CR and the LF, and any one character between the LF and 
the delete, as follows: 


CR, X15 LF, Xp, delete, delete 
where, 
X, is any set of characters not containing an LF 
X2 is any character 
Blank, punch on, punch off, and delete (rubout) frames are ignored. 


Binary records are read as four frames per word using the conversions 
shown in table 3-8. Records are terminated by an X-off character. 


Read direct (opcode 20) is implemented for the paper tape reader. It operates 
the same as read USASCII except for the following characteristics: 


e The entire 8-bit character is stored unmodified. 

e No characters are ignored; deletes and null frames are stored. 
e There is no end of record character. 

e No end of file record is recognized. 


e Read direct paper tape on an ASR33 type device does not always read 
the number of characters for which the device was opened. The user 
should depend on the returned (PRB word) character count. 


Change 1 | 3-28 Digital Systems Division 


@) 
WO 943005-9701 


3.8.3.2 ERROR DETECTION. The DSR detects invalid punches during a 
read binary operation only. An illegal operation aborts the job. 


3.8.3.3 END OF FILE RECORDS. In USASCII and Binary modes any rec- 
ord beginning with a slash-asterisk (/*) is detected as an end of file record. 
For Binary mode thé ''/*'' record is not stored in memory. 


3.8.4 PAPER TAPE PUNCH DEVICES 


The paper tape punch devices punch data on 8-level paper tapes in an 
USASCII, Binary, or Direct format. Support is provided for ASR33 type de- 
vices and high speed paper tape punches. 


Table 3-8. Binary Internal Code to Paper Tape Binary Code 


Internal Tape Code 


Frames 


00010 000 
00000 001 
00000 010 | 
10000 011 | 
00000 100 
00010 101 
00010 110 
10010 111 
10011 000 
00011 O01 
00011 010 
10011 011 
00011 100 


10011 101 
10011 110 
00011 111 


9 a 3 W@W oo I © 
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3.8.4.1 RECORD FORMATS. USASCII records are written as one frame 
per character. Data is punched directly from the data buffer with no conver- 
sions. Each record is terminated with a Carriage Return (CR), Line Feed 
(LF), reader-off character (X-off), and two delete (rubout) characters, and 
a punch-off character if the device is a Model 33 ASR. Binary records are 
punched as four frames per word. The end-of-record indicator is the same 
as for the USASCII write operation, without the carriage return and line feed. 
Write Direct punches data directly from memory as in a USASCII write oper- 
ation, but no end-of-record indicator is added to the punched data. Write 
Direct is not supported on Model 33 ASR paper tape punches. 


3.8.4.2 ERROR DETECTION. The punch does not detect punch errors. 


3.8.4.3 END OF FILE RECORDS. An end of file record is defined for 
both Binary and USASCII modes as a record beginning with ''/*''. A write end 

: of file punches a ''/*"'' followed by CR, LF, X-off and two delete characters, 
then a 10 inch blank tape trailer. 


3.8.4.4 OTHER OPERATIONS. Open-rewind punches 10 inches of leader 
on the paper tape punch. 


3.8.5 DMAC AND I/O BUS LINE PRINTERS 


Characters are printed directly from the user's data buffer. If the formatted 
USASCII bit in the PRB is set, the first word of the data buffer is used for 


format control. 


3.8.5.1 STATUS. If the printer is in a Not Ready condition (as opposed 
to offline), the DSR prints a Printer Not Ready message on the system con- 
sole terminal. Offline status is not detectable. 


3.8.5.2 ERRORS. The calling program aborts on illegal operations. If 
the device is not ready, the DSR generates retry errors. 


3.8.5.3 I/O BUS PRINTER. A carriage return precedes any form feed 
operation. Bold letter records may be output by setting bit 1] in the user set 
flags of the PRB. Bit 1 instructs the line printer to overprint the line with 


redundant text. 
3.8.5.4 OTHER FUNCTIONS. The page moves to top of form when the 
following operations are done: 

6 Rewind 

@ Open Rewind 

@ Close and Write EOF 

e Write EOF 
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The printer performs a carriage return and a line feed when it receives an 
Open command. 


3.8.6 CARD READER 


For handling formatted I/O records, cards are considered asa hard-copy 
medium rather than a storage medium. Therefore, do not punch the format 
control characters when preparing the input deck. In addition the deck must 
follow an implied one-record-per-card structure. The following restric- 


tions are imposed upon cards as a storage medium: 
8 An implied CR/LF on every record 

e Each blank line is indicated by a blank card 
© A form-feed cannot be stored 


® A maximum limit of 80-characters per record. 


3.8.6.1 RECORD FORMATS. USASCII records actually appear as Holler- 
ith punches on the cards. An USASCII read operation causes the DSR to con- 
vert the Hollerith characters to USASCII characters. Table 3-9 lists the 
characters and their Hollerith and USASCII codes. Binary records are 
punched two characters per card column as shown in Table 3-10, 


Read Direct (opcode 20) reads a card without any data conversion. The data 
is stored in memory as one card column per word. The word is right- 
justified with bits 0 through 3 equal to 0. The least significant bit in memory 
represents card row 12 (top of card). The input record length must be given 
in characters, or 8-bit bytes, and requires a character count of twice the 
number of columns to be stored. If the character count is odd, only one byte 
of the last column is stored. That byte is stored in the most significant half 


of the buffer word. 


we wee 


3.8.6.2 ERROR DETECTION. The DSR detects errors for timing and in- 
valid punches. A timing error occurs when either an interrupt for one card 
column is not serviced before the next is read, or when the punches in the 
card are out of alignment. Not all mispunched card columns are detectable. 
The DSR detects all invalid binary punches. Mispunched USASCII characters 
that are not detected as errors are converted to valid USASCII characters. 


3.8.6.3 END OF FILE RECORDS. Acard with a slash-asterisk (/*) in 
the first two columns represents an end of file record in both Binary and 


USASCII modes. 
3.8.7 DUMMY DEVICE 


The dummy device handles all possible operations. All necessary system 
set flags are returned. For example, read operations set the end of file bit. 
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| Table 3-9. USASCII Character Internal Code 
to Hollerith Code Conversion 


USASCII Hollerith Character USASCII Hollerith Ch t 
Code Code Code Code nieces 


“No Punches 
12-8-7 

8-7 

8-3 

11-83 


/ 
0 
I 
2 
3 
4 
5 
6 
7 
8 
9 


fj 
Orr ONOOCO OOOO CO CO 
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3.8.8 16 INPUT/16 OUTPUT DATA MODULE 


This DSR does not support interrupt processing. The 16 I/O Data Module is 
not compatible with any other I/O device, and has its own functions and op- 

i codes. They are listed in table 3-11.’ Figure 3-2 illustrates the Data Module 
PRB. 
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Table 3-10. Binary Character Internal Code 
to Binary Card Code Conversion 


Internal Code Card Code Internal Code Card Code 


Most Least 
Significant Rows Significant Rows 

Digit 12-11-0-9 Digit 8-1-2-3-4-5-6-7 
0 Blank 0 blank 
1 9 1 ] 
2 0 2 2 
3 0-9 3 3 
4 11 4 4 
5 11-9 5 5 
6 11-0 6 6 
7 11-0-9 7 7 | 
8 12 8 8 
9 12-9 9 8-1 | 
A 12-0 A 8-2 
B 12-0-9 B 8-3 
C 12-11 C 8-4 
D 12-11-9 | D 8-5 | 
E 12-11-0 E 8-6 
F 12-11-0-9 F 8-7 


Example: The binary card character for hexadecimal CA is 


12-11-8-2. 


3.8.9 AD/DA DEVICES 


Figures 3-3 and 3-4 illustrate the PRB for Analog-to-Digital converters and 
Digital-to-Analog converters, respectively. 


3.8.10 MAGNETIC TAPE 


The TI Model 979 Magnetic Tape Unit is a standard peripheral of the mini- 
mum DX980 hardware configuration. 


This unit is a 1/2 inch, 9 track, IBM compatible format, 800 bits per inch 
tape drive. It uses an NRZI recording format with a standard fixed speed of 
37 1/2 inches per second. 


A detailed description of the unit is contained in the Model 979 Tape Trans- 
port Operators Manual, part number 216316-9701. 
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| Table 3-11. 16 I/O Data Module Instructions 


Reset - Initialize Data Module logic. 


Output Word - Transfers a word from computer to Data 
Module. . 


Output Bit - Transfers a single bit from computer to a 
specified bit of the Data Module. 


Read Status - Transfers current Data Module status to 
computer. 


Read Data - Transfers a word from Data Module input 
lines to computer. 


Read Output Register - Transfers the contents of the 
Data Module Output lines to the computer. 


Open - Initialize the Data Module and set-up PRB. 


Close - Terminate I/O operations. 


0 7 


SYSTEM SET FLAGS 


8 15 
USER SET FLAGS 


Figure 3-2. Data Module PRB 


WORD 1! 
WORD 2 


(A)129984 
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NOTES: 
() OPERATION CODES, 


OPERATION DEFINITION 1414 6= A/D CONVERSION 
WORD 3 TABLE (ODT) ADDRESS 14 REQUESTED 
074 6= OPEN 


09, 6= CLOSE 


(2) THE DEVICE ADDRESS RANGE 
IS 0-63 AND IS SELECTED BY 
SWITCHES INSIDE THE A/D 
CONVERTER ASSEMBLY, 


@) GAIN ONLY APPLIES TO 7480/20 
OR 7480/22 


ODT FOR A/D 15 


WORD 0 


WORD 1 CHANNEL 


WORD 2 RETURNED CONVERTER INPUT 


(A)129985 
Figure 3-3. Analog-to-Digital Converter PRB 


NOTES, 
@). OPERATION CODES; 


13 =D ‘A OPERATION 
16794 3 REQUESTED 


.e) ODT FOR D/A 15 


07, 67 OPEN 


09,,=CLOSE 


DEVICE ADDRESS 16 


WORD 1 DATA OUTPUT WORD 
7/8 
WORD 2 CHANNEL 
(A)129986 


Figure 3-4. Digital-to-Analog Converter PRB 
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SECTION IV 
DISC FILE MANAGEMENT 


4,1 FILE STRUCTURES 


A DX980 file is a logical collection of related data stored on a random access 
device. A file consists of a number of logical records each containing a col- 
lection of related data items that the program treats as a unit. Logical rec- 
ords may also combine to form a physical record. A physical record is a 
collection of data items that the operating system treats as a unit when trans- 
ferring data between main memory and the random access device. DX980 
supports two types of record transfers: blocked and unblocked. An unblocked 
file exists if each physical record in the file consists of a single logical rec- 
ord. If the physical records contain more than one logical record, the file 

is described as blocked. 


4,2 FILE HANDLING 


When the program issues an I/O call fora file transfer, the file management 
system intercepts the call. For output operations, the logical record indi- 
cated by the Physical Record Block (PRB) is transferred to a physical rec- 
ord buffer. if the logical record transfer completes the physical record, the 
physical record is transferred to the random access device. Similarly for 
input operations, a physical record may be transferred from the device to 
the buffer. The buffer then supplies logical records to the program until all 
logical records are used. At that time a new physical record is retrieved 
from the device. Thus, several logical record transfers can be made at 
memory speed before a single transfer at peripheral speed. This arrange- 
ment can minimize transfer time in programs with a high degree of I/O ac- 
tivity. 


4.2.1 MEMORY, ALLOCATION 


The operating system allocates memory space for physical record buffers 
from the user program's job extension area (<jearea>) when the user opens 
a file. The memory space is released when the user closes the file. The 
Job Control Language (JCL) tells the system that a file is blocked and the 
number of physical record buffers to be allocated. The job area (<jarea>) 
for the user program provides memory space for logical record buffers. 
The user can provide this space explicitly by using a Block Starting with 
Symbol (BSS) directive in an assembly language program or implicitly with- 
in the Fortran Input/Output package when the program is run. 


4_] Digital Systems Division 


(e} 
rig 943005-9701 


4.2.2 FILE INTEGRITY 


DX980 maintains file integrity through access restriction and through file 
locking. When the file is defined or assigned, the user specifies access re- 
strictions for operations on the file of reading, writing, executing and de- 
leting the file. He can restrict access completely for any of the operations 
(NONE), he can allow access to anyone (ANY), or he can selectively restrict 
access to either the creator of the file (CREAT) or to those having the proper 
password (PSWD). Following this initial definition of access restrictions, 
DX980 enforces them for each type of file operation. 


In addition, DX980 provides three levels of file locking: 
1. Assigned exclusive 
2. Assigned shared - open exclusive 
3. Assigned shared - open shared, then lock 


The first type provides an exclusive access to the file until the file is deas- 
signed through job step termination if the file is not being passed, or through 
job string termination if the file is passed from one step to another. Ex. 
clusive access can also be removed through runtime resource deallocation. 
The second type of file locking provides exclusive access to the file until the 
file is closed. The third type of file lock secures the file on an operation by 
operation basis. The file is locked by setting a bit in the User Set Flag area 
of the PRB for that operation. This type of lock secures the entire file 
rather than a single record. Also, the user is not locked out unless he spe- 
cifies the lock by setting the bit in the PRB. 


4.3 DISC ORGANIZATION 


The operating system allocates file space and maintains disc directories to 
support both DS330 and moving head discs. DX980 uses two levels of direc- 
tories: 


e one master file directory for each disc pack (<volume>) 
e a user file directory for each user «fileid>) on each disc 


These directories are standard indexed files with a physical record size of 
96 words. For a single master file directory, this indexed file contains 
keyed entries consisting of file control blocks for each user file directory. 
The file control blocks are keyed on each valid user <fileid> in the system. 
A particular user file directory contains keyed entries consisting of file con- 
trol blocks for each file defined under the user. The file control blocks are 
keyed on the file name <filenam>. 


Each user file directory identifies files by file name (<filnam>). Thus, a 
user can have several files under a particular user file directory on each 
disc volume. If an installation has a single disc drive, all packs to be 
mounted on that drive must also contain the operating system. For multiple 
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drive installations one drive, designated as the system disc, supplies the op- 
erating system plus user files. The remaining drives are dedicated complete- 
ly to user files. The selection of the drive or volume for file storage is a 
JCL assignment parameter. 


The operating system employs two techniques for file allocation: contiguous 
allocation and noncontiguous allocation. Contiguous allocation places the en- 
tire file on consecutive disc tracks (disc tracks are numbered consecutively 
from 0 through the total number of tracks on the disc; the last track on one 
disc cylinder and the first track on the next cylinder are numbered consecu- 
tively on a moving head disc). Noncontiguous allocation is accomplished 
dynamically as the file grows on a track-by-track basis. The initial alloca- 
tion for noncontiguous files is specified as a JCL parameter and may be any 
number of tracks. The entire initial allocation is assigned to consecutive 
tracks. AsI1/O operations add records to the file and the initial allocation 
is used up, additional tracks are allocated one at a time from any available 
disc space. As each additional track is used up, another is added until the 
final allocation limit, specified in JOCLas<mtrks>, is reached. The file 
management system can also start searching for the initial allocation quan- 
tity (or total quantity for contiguous allocation) at a particular track 
<trknum>. This user option minimizes head movement by grouping together 
files to be processed by a program. 


4.4 FILE TYPES 


DX980 supports three types of files: linked sequential, relative record and 
key indexed files. The following paragraphs explain each of these file types. 


Table 4-1 summarizes the features of each file type. 


4.4.1 LINKED SEQUE 


Linked sequential files are files whose records can only be reached through 
sequential access. File allocation is noncontiguous. The operations sup- 
ported on a Linked Sequential File are identical to those outlined in Section 
III for 1/O to sequential devices. A linked sequential file supports an im- 
bedded end of file so that a single linked sequential file can replace a multiple 
file stack on a sequential access device (for example an entire reel of mag - 
netic tape). The random access capabilities of the disc facilitate the search 
file operations. A record cannot be inserted between two existing records. 
Individual records cannot be deleted. An end of medium pointer always fol- 
lows the last write performed. This end of medium is equivalent to an end 
of volume on a tape reel. 
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Table 4-1. Summary of DX980 File Features 


File Type 


Linked 
Sequential 


Parameter 


Relative 
Record 


Key Indexed 


Access Sequential Sequential; Sequential; 
Random Random 

Allocation Noncontiguous Contiguous Noncontiguous 

Logical Order Chronological Disc Address Keyed; alphabetic 


Nonkeyed; Chron- 
ological after key 


None 15-bit Binary 1~30 byte 


record number 


Direct (LR = PR) | Blocked 
Blocked (LR<PR) 


Key 


Blocked 


Transfer 


Physical Record | Multiple of 32 Multiple of 32 Multiple of 32 
Length 

Logical Record Variable Fixed Variable 

Length 

Logical/Physi- LR§& PR LR < PR LR < PR-8 unkey- 
cal Record Re- ed; LR < PR-8- 
lationship KEY keyed where 


KEY=key 
Logical Record No No 
Split Over Phy- 
sical Record 
Boundary 
; Inter Job Last File Beginning of Beginning of 
.File Position |Position Medium Medium 


The logical record length for linked sequential files is always variable. 
Therefore word 2 of the PRB specifies the record length of each individual 
record when the record is written. When a record is read, the actual record 
length is returned in word 2 of the PRB subject to the maximum record length 
specified when the file was opened. Insofar as the 1/O program is concerned, 
the physical record length of records stored on disc is transparent. If the 
physical record length is greater than logical record length, the number of 
actual disc transfers is less than the number of I/O calls. If the physical 
record length is less than the logical record length, the number of disc trans- 
fers will be greater than the number of I/O calls. Figure 4-1 illustrates the 
composition of a linked sequential file. 
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LINK SEQ, BUFFER 


WRITE 
FLAG 


‘WRITE. VERIFY 
FLAG 
‘BUFFER FULL FLAG 


1 UNUSED 


LOGICAL RECORD STRUCTURE 


DATA/EOF 
FLAG 


CONTIGUOUS 
FLAG 


NO, OF DATA 
BYTES=r 


NDATA BYTES 


READ DISC ADDRESS 


OF PHYS, REC, 


“FORWARD TRACK 
POINTER 


INDEX TO END +1 
OF LAST RECORD 
IN BUFFER 


LR 
(LOGICAL RECORD) 


PHYSICAL RECORD 
DATA TRANSFER 

O/FROM STORAGE 
SERVICE 
(SIZE= <PRWRDS) WORDS) 


PARTIAL LR 


PHYSICAL RECORD 
BOUNDARY 


NDATA BYTES 


BACK EOF POINTER 
(O FOR FIRST EOF) 


BACK EOF INDEX 


FORWARD EOF 
POINTER 
O FOR LAST EOF 


FORWARD EOF INDEX 


1 
(A)130321A bea iad 


Figure 4-1. Linked Sequential File Parameters 
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4.4.2 RELATIVE RECORD FILES 


A relative record file allows random access in addition to sequential access 
for locating records within the file. The random access method uses a num- 
ber to directly specify the numerical position of the record within the file. 
The first record is designated as record number 0. Records may be added 
to the file using either access method. Existing records in the file may be 
changed or read using either access method. A record cannot be inserted 
between two existing records. Single records cannot be deleted. The oper- 
ating system does not support an end of file interior to the file. 


File allocation for a relative record file is contiguous so that the size of the 
file must be specified when the file is defined. The entire contiguous data 
area assigned to the file is partitioned into fixed length logical records. If 
blocking is specified, the blocking buffer length (physical record length) 
must be larger than the logical record length. In either case access toa 
record does not require a directory search. A maximum of one disc access 
is required to fetch a record by either method and may be none if the record 
is within a blocked physical record that is in the buffer. 


A relative record file is unblocked if the logical record length is equal to 
physical record length. For unblocked files the file management system does 
not create an intermediate buffer in the job extension area. Instead, it trans- 
fers the data directly to or from the logical record buffer specified by the 
PRB. This direct transfer requires a disc transfer for each I/O call, and 
increases the running time of the accessing program, but reduces the mem- 
ory requirements due to a smaller job extension area. Figure 4-2 illustrates 
both blocked and unblocked transfers. 


The operating system supports the following random access functions: 


® Write/Replace using key - Data record with same numeric key to be 
replaced with new data record. 


® Replace using key - same as Write/Replace using key. 
e Read using key - Read the logical record as specified by the key. 


Any access to a record in the file (read or write, random or sequential meth- 
od) establishes a logical position that follows the record previously accessed. 
This logical position has no effect on a subsequent random access operation, 
but defines the location for a subsequent sequential operation. 


4.4.3 KEY INDEXED FILES 


A key indexed file allows random access in addition to sequential access for 
locating records within the file. The operations allowed for both random and 
sequential access methods are considerably more powerful than those allowed 
for either linked sequential or relative record files. Key indexed files are 
noncontiguous. 
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The key for random access within a key indexed file is an n-byte name 

(n<30 USASCII bytes or binary bytes). The number of bytes in the key is 
fixed for all keyed records in the file when the file is defined. However, dif- 
ferent key indexed files may have different key sizes. Keyed records are | 
added by setting a bit in the PRB (random access method). Records without 
a key are added sequentially to the file. Records that are placed sequentially 
in the file without a key can only be retrieved with the sequential access meth- 
od. No two records may have the same key (name). Most of the sequential 
access capabilities of key indexed files are identical to those described in 
Section III for sequential 1/O devices. Insertion of a nonkeyed record is also 
allowed. 


4.4.3.1 RANDOM ACCESS FUNCTIONS. The operating system supports 
the following random access functions: 


e Read using key - With option to delete record and key. 
e Write insert using key - Presence of same key considered error. 


e Write replace/add using key - Data record with same key to be 
replaced with new data record. 


e Delete at record level - keyed and non-keyed records. 


e Read next higher or lower key. 


4,4,3.2 SEQUENTIAL ACCESS FUNCTIONS, When performing a sequen- 
tial access read within a key indexed file, logical records are retrieved in 
increasing order of key with the key treated as an unsigned integer (the order 
is alphabetical if the key is USASCII bytes). Unnamed records are positioned 
in the file as sequential records following either a keyed record or the be- 
ginning of file. Any access to a record in the file (read or write, random 
or sequential method) establishes a logical position that follows the accessed 
record. This logical position has no effect on a subsequent random access 
operation, but defines the location for a subsequent sequential access opera- 
tion. 


4.4.3.3 LIBRARY MANAGEMENT, Libraries consisting of groups of log- 
ical records identified with a common name are easily maintained through a 
combination of keyed and nonkeyed records in the same file. For example, 

a source program library could be written with a keyed record for the first 
source record. The remaining records in the program would be nonkeyed, 
sequential records. To retrieve a program, the system first performs a read 
using key to locate the start of the program. Subsequent sequential read op- 
erations retrieve the remaining records. The Key Recovery Desired bit in 
the PRB (word 1, bit 2) must be set during this operation so that the first 
time a key is returned, the system recognizes the corresponding record as 
the first record of the next program. This indication can be treated as an 
end-of-file if only one program is desired. If the program is the last in the 
file, the EOF flag (PRB word 0, bit 2) denotes end-of-file. 
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4.4.3.4 MULTIPLE RECORDS WITH THE SAME KEY. If the operating 
system detects an existing identical key within the file while performing a 
write using key operation, it returns a logical error indication to PRB word 
0, bit 6. The user can still make an entry using that key, however. By per- 
forming a read using key operation to locate the key within the file, and then 
performing a sequential write without key at that location, the new record 
can be inserted at the beginning of a sequential string following the record 
with the target key. This operation generates a string of records for each 


key that operates so that the last record inserted will become the first rec- 


ord obtained sequentially following the keyed record itself. 


4.4.3.5 BUFFER MANAGEMENT, A system wide buffering scheme pro- 
vides buffer management for key indexed files. A major factor in gaining 
access to a key-controlled data record is the number of disc accesses re- 
quired to search through the key structure. To minimize the number of ac- 
cesses and reduce search time, DX980 allows multiple memory buffers for 
storing keyed records. The minimum number of buffers per job for key 
indexed files is two: one buffer for keys and another for data. The operat- 
ing system provides two mechanisms for acquiring multiple buffers. The 
"BUFFERS=" parameter in the assignment command specifies the number 
of buffers to be allocated in the accessing program's job extension area. 


In addition if multiple programs are sharing a key indexed file, the buffers 
from ali sharing programs are grouped together for searching purposes. 
The user should specify a sufficient number of buffers in his job extension 
area to achieve the access time required for the application. If the file is 
being shared, the access time will be less than anticipated. 


4.4.3.6 BUFFER SIZE. Buffer size selection for key indexed files is 
based on the length of each key, the number of keyed records in the file, and 
the desired data access time. Access time for data records is approximately 
equal to the number of disc accesses required to find and retrieve the record, 
times the average seek time for the disc drive. The number of disc accesses 
to get a data record is approximately equal to log, ntl, where nis the num- 
ber of data records in the file and m is the number of keys in each physical 
record. The number of keys per physical record is equal to the physical 
record length minus four divided by the effective length of each key. The 
effective key length, including pointers and information about the data record, 
is five words plus the key length in words. Since key length is specified in 
characters in the JCL, the key length in words is the JCL specification di- 
vided by two and rounded up. The minimum buffer size specification must 
provide for two keys and at least one logical record: 14 words + 2* (key 
length/2). In addition the buffer size must be a multiple of 32 words. 

Figure 4-3 illustrates the file structure for key indexed files. The terms 
used in the figure are defined in the following paragraphs. The structure is 
handled by DX980 rather than the user. The information is supplied for in- 
creased comprehension only. 


ee a a ee a ae a ve Eee 
4.9 Digital Systems Division 


943005-9701 


LOGICAL RECORD VIRTUAL BUFFERS IN MEMORY | 
Pe aN ct 


(size D> <I rchar>cHaRAcTERS) (nuMBeR=><nbufs >) | 


POINTER TO PARTICULAR 
USER'S ASSIGNED BUFFERS 


FORWARD POINTER 
(VIRTUAL MEMORY BUFFERS 
BACKWARD POINTER 
(VIRTUAL MEMORY BUFFERS) VIRTUAL 


FPA 
FORWARD LOGICAL POINTER 


FPtE (INDEX) 


LOGICAL WRITE] WRITE BUFFER 
RECORD FEAG’ | VERIEY | SUSY: COUNT INFORMATION 
CONTROL BPA 
BACKWARD LOGICAL POINTER | 
FIELD RDA 
(REAL DISC ADDR OF 
BPI (INDEX) PHYSICAL RECORD) | 
EY DELETED NUMBER | | 
BYTES 
KEY | | 
IF KEY FLAG=1 | LR | 
(LOGICAL RECORD) PHYSICAL RECORD (DATA TRANSFER TO 
| STORAGE DEVICE) 


(SiZE=><prwrds> WORDS) 


NON BOTTOM LEVEL NODE 


NON NUMBER OF 
BOTTOM KEY ENTRIES 
FLAG 


DATA PACKAGE BUFFER 


KEY PACKAGE 


PERIPHERAL STORAGE DEVICE 


8 BITS 
ewe, 
BLOCK SIZE=D> 
OELE TE & SPEER ER 
FLAG NOT USED (RESTRICTED BY 
NATURE OF 


KEY DIRECTORY BUFFER 


POINTER TO PARTICULAR 
USER'S ASSIGNED BUFFERS 
FORWARD POINTER 
(VIRTUAL MEMORY BUFFERS) 


SACKWARD POINTER 
(VIRTUAL MEMORY BUFFERS) 


WRITE? WRITE 
FLAG | VERIFY [BUSY COUNT 
FLAG 


RDA 


(REAL DISC ADDR OF 
PHYSICAL RECORD) 


FORWARD TRACK POINTER 


OEVICE : 


DATA 
POINTER 
(24 BITS! 


peepee INDEX ~_— 
{16 SITS) 


VIRTUAL 
BUFFER 
INFOR- 

MATION 


N-BYTE KEY 
—~ (TO WORD cies 
BOUNDARY) 


PHYSICAL RECORD (DATA TRANSFER TO 
STORAGE DEVICE) 


(SIZE ><prwrds> WORDS) 


(C)129987 


Figure 4-3. Key Index File Parameters 
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4.4.3.7 LOGICAL RECORD. The logical records include both data and 
control fields for operating system use. The control area of the record is 
comprised of the following fields: 


® Forward Pointer Address (FPA) - This two word space in each log- 
ical record contains the disc address of the physical record contain- 
ing the next logical record in a linked file. 


® Forward Pointer Index (F PI) - This one word area in the logical rec- 
ord designates the relative position of the next logical record within 


the physical record specified by FPA, 


e Backward Pointer Address (BPA) - This two word space in each log- 
ical record contains the disc address of the physical record contain- 
ing the previous logical record in a linked file. 


r) Backward Pointer Index (BPI) - This one word area in the logical 
record designates the position of the next logical record within the 
physical record specified by BPA. 


e Key Flag - The operating system sets this bit to indicate that the 
logical record has a key associated with it. 


e Delete Flag - The operating system sets this bit to indicate that 
the logical record has been deleted from the file. 


e Key - If the Key Flag is set, this field contains the key for the log- 
ical record. 


4,4.3.8 DATA PACKAGE BUFFER. The data package buffer contains log- 
ical records and a track pointer that comprise the physical record stored on 
the disc, plus control information used by the operating system. The num- 
ber of buffers allocated in a particular job is specified by the user through 


the <nbufs> parameter in JCL. 


Track Pointer. The track pointer becomes part of the physical record on 
the disc. If the record is the last record on a track, it points to the address 
of the track containing the next physical record of the file. For the first 
physical record on a track, this field is used for a pointer to the previous 
track of the file. For interim records ona track, this field is not used. 


Data Package Control. The contrui area of the buffer is comprised of 
the following fields: 


e User Buffer Pointer - This field contains the main memory address 
of the first buffer assigned to the current user of the buffer. 
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e Forward Pointer (FP) - This one word field contains the main mem- 
ory address of the next buffer in a series of buffers assigned to a 
job. 

e Backward Pointer (BP) - This one word field contains the main mem- 
ory address of the previous buffer in a series of buffers assigned toa 
job. 

@ Write Flag - When a user alters the information contained in a file 


buffer, the Write Flag sets. When set, this flag indicates to the op- 
erating system that the physical record must be written back to the 
disc before it is discarded after being used. This flag ensures that 
the changed data will be recorded in place of the old data on the disc. 


@ Write Verify Flag - When set, this flag indicates that the operating 
system must read data back from the disc following a write to ensure 
that the record was stored accurately. 


e Busy Count - This field contains the number of users that are cur- 
rently using the buffer. When the count equals zero, the system can 
replace the buffer contents with new information. 


e Real Disc Address (RDA) - This two word field contains the disc ad- 
dress of the physical record currently in the buffer. 


4.4.3.9 KEY DIRECTORY BUFFER. The key directory buffer is identical 
to the data package buffer, except that the logical record fields of the data 
package buffer are replaced with nodes of the sorting tree used to locate a 
particular key. Each node contains one control word that specifies if the 
node is a bottom node or an intermediate node, and that also indicates the 
number of keys contained in the node. The remainder of the node contains 
key packages, and if it is an intermediate node, pointers to the next lower 
level node in the sorting tree. 


Lower Level Pointers. If the desired key is not contained in a current node, 
the operating system must access another block of keys (node) to locate the 
key. The system searches the current node until it finds the first key that 

is logically greater than (alphabetically past) the desired key. Associated 
with each key is a two word pointer. The pointer is the disc address of the 
node that contains keys in the level of the sorting tree below the associated 
key. The operating system uses that pointer to access the next node for the 
search. All of the keys in next lower level node are sorted and are alpha- 
betically between the surrounding keys at the higher level. 


Key Package. The key package consists of the following fields: 


@ Delete Flag - The operating system sets this bit to indicate that the 
key and its associated logical record have been deleted from the file. 
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e Data Pointer - This 24-bit field contains the disc address of the 
physical record that contains the logical record associated with the 
key. 


@ Index - This one-word field designates the position of the correct 
logical record within the physical record indicated by the data 
pointer. 


e Key - This field contains a name that is from 1 to 30 bytes long and 
that identifies the logical record within the file. This key is re- 
peated in the control field of the logical record associated 
with the key. _ 


4.4.4 FILE ERRORS 


As with I/O devices, three levels of errors can result from a SVC to per- 
form file 1/O. The conventions described in Section III for I/O errors apply 
to file errors also. Table 4-2 lists the possible file errors together with 
their associated severity and error number. 


4.5 PHYSICAL RECORD BLOCK 


The Physical Record Block (PRB) for file I/O is similar to that for device 
I/O as outlined in Section III except for the key address field (word 4). The 
PRB is four words in length unless bit 1 of word 2 is set. That bit indicates 
the presence of the key address in a fifth word. Key address is used by key 
indexed or relative record files. The field points to the memory address in 
the user program where the key can be located. For relative record files the 
indicated key contains a 15-bit binary value within the range of 0 to 32, 767. 
Bit 0 of this word must be zero and bits 1 through 15 contain the record 
number. This number indicates the logical record number within the partic- 
ular relative record file. For key indexed files the key contains a block of 
from 1 to I5 words (1 to 30 bytes) that functions as an alphanumeric byte 
string or a binary number. The length of this block (key) is specified with 
JCL. The key constitutes the name of the referenced logical record. Keyed 
reads and writes require both a key and a logical data record pointer. Table 
3-4 outlines the opcodes that are applicable to I/O for relative record and key 
indexed files. Linked Sequential Files are accessed with I/O calls as de- 
scribed in Section III. 
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Table 4-2. File Errors 


eee Severit rae 
Number bad Description 


Severe 


Severe 


Logical 


Severe 


Logical 


Logical 
Logical 


Logical 


Logical 


Logical 


Severe 
Severe 
Severe 


Severe 


Severe | 


Fatal 


Severe 


Change 1 


No space available on disc volume 


File full. File status: can only be accessed for 
reading. No additional records can be written into 
the file, not even following a rewind operation. To| 
reuse the disc space the file must be replaced. 


Attempted write, logical record greater than 
physical record 


Hardware failure on disc volume 


Key indexed file - replace attempted on non- 
existent key 


Key indexed file - write attempted on existing key 


Key indexed file - write/replace (op code 101) 
attempted without specifying key. 


Key indexed file - replace (op code 102) attempted 
on a keyed record without specifying key, 


Key indexed file - replace (op code 102) attempted 


’ when file was positioned at EOF, 


Key indexed and relative record files - no key 
match in the file 


Insufficient tracks available for allocation 
Insufficient contiguous tracks left for allocation 
Allocation exceeds disc volume capacity 


Unable to allocate buffers, job extension area too 
small 


_ Insufficient number of buffers for attempted oper- 


ation 
Opcode is either non-existent or illegal 


Access violation for integrity code 
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Operation 


Write 


W rite / Perform a replace operation. 


Replace 


disc, 


a) 


Table 4-3, Relative Record and Key Indexed File Management Opcodes 


Fatal error - Must use Replace (102) or Write/Replace (101) 
Write a logical record from the user's buffer to disc. 


1) Key specified: 


2) Key not specified: Insert the nonkeyed record where the file 
pointer is positioned; advance pointer. 


1) Key Specified: Replace the logical record of the specified key 
with the logical record from the user's buffer. Position file 
pointer for next sequential record. 


2) Key not specified: Replace the record where the file pointer is 
positioned and advance the file pointer. 


Unconditionally write the logical record from the user's buffer to the 


1) Key specified: 


Function 


If the specified key already exists in the file, do not write 
the logical record to disc. Return logical error status to 
the user, and do not reposition file pointer. 


If the specified key does not exist, make a key-directory 
entry for the key and write the logical record to disc under 
the new key entry. Position file pointer beyond completed 
write. 


If the specified key exists in the key-directory, replace the 
logical record associated with the key with the logical rec- 
ord from the user's buffer. Position file pointer to next 
sequential record. 
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Table 4-3, Relative Record and Key Indexed File Management Opcodes (Continued) 


I P 
a Operation pale Function 


Code Type 


b) If the specified key does not exist, make a key-directory 
entry for it, and write the logical record to disc under the 
new key entry. Position file pointer to next sequential rec- 
ord. 


2) Key not specified: Return an error status (number 239) to the 
user. Do not reposition file pointer. 


Replace Replace the logical record on the disc with the logical record from 
the user's buffer. 

1) Key specified: Replace the record specified by the key and posi- 
tion file pointer to next sequential records. 

2) Key not specified: Replace record where the file pointer is 
positioned and advance the pointer. 

Replace the logical record on the disc with the logical record from 

the user's buffer. 

1) Key specified: Replace the record specified by the key and posi- 
tion file pointer to next sequential record. If key does not exist, 
return error and do not reposition file pointer. 

2) Key not specified: Replace record indicated by file pointer and 
advance pointer. If record to be replaced has a key, then return 
a logical error (number 240 or 241). Do not reposition file pointer. 

Read Read the logical record from the disc into the buffer specified by the 


user. 


1) Key Specified: Transfer logical record associated with specified 
key and position pointer to next sequential record. 
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Table 4-3. 


Operation 


Relative Record and Key Indexed File Management Opcodes (Continued) 


et a a a a 


File 
: Function 
Type 
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2) Key not specified: Read record indicated by the file pointer and 
advance pointer. 


Read the logical record from the disc into the user's buffer. 
1) Key Specified: 


a) Read the logical record as specified by the key from the 
disc into the user's buffer. Position file pointer to next 
sequential record. 


b) If the specified key is not in the key-directory, return an 
error status to the user. Do not change file pointer. 


2) Key not specified: 


a) Read the record indicated by the file pointer and advance 
pointer. 


b) If a keyed record is encountered and the PRB specifies that 
key recovery is desired, return the key to the user in the 
area allocated for the key. If key recovery is not desired, 
do not return the key. 


3) No data desired: By setting the ''return record size only" bit in 
the PRB a user can issue a Read and no logical record data is 
transferred. The size of the logical record is returned in the 
Data Record Length field of the PRB. Functions 1 and 2 above 
apply. 
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Table 4.3. 


Relative Record and Key Indexed File Management Opcodes (Continued) 


1/0 Operation Bate EF ti 
Code pera Tepe unction 


Read High 


1) 


2) 


Fatal error 


Read the logical record from the disc into the user's buffer. 


Key Specified: 


a) 


b) 


c) 


If the exact specified key exists in the key-directory, read 
the logical record associated with it. Position pointer to 
next sequential record. 


If the specified key does not exist, find the next algebraically 
higher key in the key-directory and read the logical record 
associated with it. Return the key that was actually found to 
the key field addressed by word 4 of the PRB. Position the 
pointer to next sequential record beyond retrieved record. 


If the specified key does not exist and no algebraically higher 
key exists in the key - directory, return an error status (end 
of medium) to the user. Do not reposition pointer. 


Key not specified: Use the forward sequential-access method to 
find the next key in the key-directory beyond the record indicated 
by the file pointer. 


a) 


Return the key to the user if a keyed record is found and if 
the key recovery bit is set in the PRB. Put the associated 
logical record in the user's buffer. Position file pointer to 
next sequential record. 


If no keyed record is found, return an error status (end of 
medium) to the user. Position pointer past last data record 
in file. 
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Table 4-3. 


Operation 


Read Low 


Realtive Record and Key Indexed File Management Opcodes (Continued) 


1) 


Fatal error 
Read thelogical record from the disc into the user's buffer. 


Key Specified: 


a 


Key not svecified: Use the sequential access method to find the 
next key in the key-directory going backwards from the current 
file pointer position. 


a) 


file pointer. 
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Function 


nn an a 


If the specified key exists in the key -directory, read the 
logical record associated with it. Position pointer to next 
sequential record. 


If the specified key does not exist, find the next algebrai- 
cally lower key in the key-directory and read the logical 
record associated with it. Return the key that was actually 
found to the key field addressed by word 4 of the PRB. Posi- 
tion pointer to next sequential record. 


If the specific key does not exist, and no algebraically 
lower key entries are in the key-directory, return an error 
(beginning of medium) status to the user. Do not change 


If a keyed record is found, return the key to the user (if the 
key recovery bit is set in the PRB) and put the associated 
logical record in the user's buffer (if data is to be trans- 
ferred). Position file pointer to record following the record 
used. 
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Table 4-3. 


J 
pO Operation Bile Function 
Code Type 


Read 
Delete 


Delete 


Relative Record and Key Indexed File Management Opcodes (Continued) 


1) 


Key 


a) 


b) 


Key 


a) 


If no keyed record is found, return an error (beginning of 
medium) status to the user. Position file pointer to be- 
ginning of file. 


Fatal error 


Read the logical record associated with the specified key into the 
user's buffer. Then mark both the key entry in the key-directory 
and its associated logical record as deleted. Same rules apply as 
for Read (I/O code 103) plus Delete (I/O code 107) for K.I. files. 


Fatal error 


Mark the indicated record as deleted. 


specified: 


If the key exists, mark the specified key entry in the key- 
directory and its associated logical record as deleted. Any 
sequentially linked record(s) that exist for the specified key 
remain, but the associated key and its record are specif- 
ically marked as deleted. Position pointer to next record. 


If the specified key entry does not exist in the key-directory, 
return an error status to the user. Do not change file 
pointer. 


not specified: 


Mark the logical record at the current file pointer position 
as deleted. Increment the pointer to the next logical rec- 
ord. If the deleted record has a key, delete that key from 
the key-directory. 
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Table 4-3. Relative Record and Key Indexed File Management Opcodes (Continued) 


PAM: NNN TA EV NL 


Operation 


Delete 
Sequentially 


1) 


Function 


cal record contains a key, then return the deleted key to the 
user in the key field of the PRB. 
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When the last logical record is deleted, the file pointer is 
incremented to point at the end of medium. Therefore, the 
appropriate status is returned to the user. 


Fatal error 


Mark the specified key entry, its associated logical record(s), and 
any sequentially linked logical record(s) up to, but not including, the 
next algebraically successive key entry as deleted. 


Key Specified: 


a) 


If the key entry exists in the key-directory, mark it and any 
sequentially linked logical record(s) as deleted. If the key 
recovery bit is set, the next successive key is returned to 
the key field of the PRB. Position file pointer beyond de- 
leted records. 


If the key entry does not exist in the key-directory, return 
an error status to the user. Do not change file pointer. 
not specified: 


Begin at the current file pointer position and mark the se- 
quentially linked logical record(s) up to, but not including, 
the next successive key entry as deleted. Position the 

file pointer beyond deleted records. 
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Table 4-3. 


Fil 
eine 
Type 


Delete 
All 


Relative Record and Key Indexed File Management Opcodes (Continued) 


If the key recovery bit is set, return the next successive key 
to the user in the key field addressed by PRB Word 4. 


c) If an end of medium is detected, return the appropriate sta- 


tus to the user. 
Fatal error 


Mark all key-directory entries (key and non-key) and all logical data 
records in the file as deleted (delete all data contents of file to create 
an empty file). File allocation remains the same. 
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SECTION V 
SUPERVISOR CALLS 


5.1 GENERAL 


DX980 supervisor calls (SVC) are requests to the operating system to per- 
form a service for the user. This request is the only communication between 
a user program and the operating system. The computer interprets an SVC 
as an illegal machine instruction. When the computer encounters an illegal 
instruction, it automatically branches (traps) to the internal interrupt entry 
address. The operating system examines all instructions that cause a trap 
to determine if they are SVC opcodes. If not, the instruction actually is 
illegal and the system aborts the offending program. If the instruction is an 
SVC, the operating system decodes the remainder of the instruction and calls 
the appropriate system service routine to process the SVC. 


For compatibility with the Basic Monitor System, DX980 recognizes two SVC 
instruction formats: C380 and F800. The C380 SVCs conform to SVCs for 
the Basic Monitor. However, the Basic Monitor call Set Control Status Flag 


(C384) is not recognized by DX980. The Basic System Use and Operation 


manual referenced in the preface to this manual explains Basic Monitor SVCs. 


The standard DX980 SVC format is based on instructions in the form: F8XX 
(XX corresponds to the hexadecimal equivalent of the SVC number as de- 
scribed in this manual). To issue an F8XX SVC, construct an argument list 


that contains a word identifying the number of arguments described by the 
list, followed by successive words containing the addresses of each argu- 
ment. Then set the M register to the address of the list and allow the pro- 
gram to execute the SVC. For example, a Wait for I/O SVC is implemented 
as follows: 


@GLDM = ARGLST 
DATA >F82B (2B16 = 43,0: Specifies SVC 43) 


ARGLST DATA 1,PRB Designates 1 Argument at Address PRB. 


Supervisor calls can be specified in decimal form if the OPD (Operation De- 
finition) assembler directive is first used to define a new instruction mne- 
monic, SVC, that maps the decimal number to its hexadecimal equivalent. 
Then the statements: 


SVC 43 
and 
DATA >F82B 


are equivalent. 
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Table 5-1 summarizes the DX980 SVC. Table 5-2 lists and describes each 
SVC. The remaining paragraphs in this section provide examples of param- 
eter setup and calling sequences for each SVC, plus a rnore detailed descrip- 
tion. 


Table 5-1. DX980 User Supervisor Calls 


Base Ten Functi 
SVC Number oe 


Input /Output 


Terminate Job 

Set Floating Point Address 
Get Memory Limits 
Terminate Job Abnormally 
Terminate Task 

Delete Task 

Suspend Task 

Post Event 

Get Time and Date 

Create Task 

Load 

Load and Relocate 


Command Scanner 


Wait for Input/Output 


Allocate Resource 
Deallocate Resource 
Get Program Limits 


Start Job 
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Base Ten 
SVG Number 


Number of 


Function Arguments, 
Name(s) 
I/O 1, PRB 
Terminate Job 0 
Set Floating Point 1, FLT980 
Address 
Get Memory Limits 1, ARRAY 


Terminate Job 1/2, ERRCOD, 


Abnormally ERRID 
Terminate Task 0 
Delete Task 1, TASKID 
Suspend Task 1/2, WCL, 
RETEDB 
Post Event 1, EDB 
ES 


Post the event specified in the EDB. 


Table 5-2. DX980 Supervisor Call Description 


Description 


Performs all I/O for the user as specified by 
the PRB. 


Normal Job Termination 


Set floating point address to trap to for any 
floating point instructions. 


Get memory limits of user partition from job 
partition and return values in the supplied 
array. 


Abnormal Job Termination. Number of argu- 
ments is either 1 or 2. First argument is 
ERRCOD, an error code supplied by the user 
(should be 1000 or greater). Second optional 
argument is ERRID, the address of a 6 char. 
acter identifier that the user supplies to identi- 
fy which error the ERRCOD applies to. 


Normal Termination of the Running Task. 


Delete all tasks under the user job having the 
same name as TASKID. 


Suspend the running task under the user job 
waiting for event(s) as specified by the Wait 
Criteria List (WCL). RETEDB is optional; if 
specified, the task returns to the last matched 
Event Description Block (EDB) on which the 
match occurred. 
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Table 5-2. DX980 Supervisor Call Description (Continued) 


Number of 
Arguments, 
Name(s) 


Base Ten 


SVC Number Fanction 


Description 


29 Get Time & Date 4, BTIM, BDAT,| Return the System Time and date in the follow- 
CTIM, CDAT | ing parameters; 
BTIM = System Time in Binary (2 words, 
milliseconds since midnight) 
BDAT = System Date in Binary (2 words, 
year & day) 
CTIM = System Time in Characters (3 
words, HH:MM:SS) 
CDAT = System Date in Character (3 words, 
MM:DD:YY) 
The format of the date is year followed by day 
of the year (instead of the month). 
30 Create Task Variable Create a task under the user job as specified 


by the following parameters: 


1) TPRI - Relative Task Priority 

2) TID - Task identifier (user specified 
binary number). 

3) TSTART - Starting location of first instruc- 
tion task is to execute. 

4) TREG - Pointer to a register file. If the 
pointer is -l, the register file 
for the new task is to be the same 
as the creating task. If not -1, 
the parameter is a pointer to the 
register file containing values to 
be passed to the new task. 
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Table 5-2. 


Base Ten 


SVC Number Egacrion 


ne | nee NE ame 


DX980 Supervisor Call Description (Continued) 


Number of 
Arguments, 
Name(s) 


Description 


- TCB STACK SIZE; number of 
words to be allocated in the 
auxiliary stack attached to the 
TCB. 

6) TWCL~ - Wait Criteria List - A linear ar- 

ray of one or more words. If the 

first word of this parameter is 

zero, the task is to be created in 
the Ready state. If the first word 
is non-zero, the parameter is the 

Wait Criteria List and the task is 

created in the Dormant state. 


5) TSS 


The following input parameters are to be in- 
cluded only if the stack area for task creation 
is required. If no user supplied stack area 
setup is required, the parameter list ends 
here. 


7) TSTK - Pointer to user supplied stack. 
This stack, within the user par- 
tition, is required if the reen- 
trant task to be created requires 
work space. 

-~ Work Area flag. If zero, no 
work area is required. If non- 
zero, a pointer to the work area 
within the user supplied stack 
area is to be supplied. 
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Table 5-2. DX980 Supervisor Call Description (Continued) 


Number of 
Function Arguments, Description 
Name(s) 


Base Ten 
SVC Number 


Argument flag word - i.e., if 
any arguments are supplied, each 
bit of this word corresponds to an 
argument and specifies whether 
(= 1) or not (= 0) to move the first 
word of the argument list to the 
TCB. 
10) ARG1 - Argument 1 address 
ARG2 - Argument 2 address 
ARGN - Argument N address 


MIP #, Load MIP# (Memory Image Phase Number), at 

LOADR, LOADR (a specified load address) and return 

EPA the address to give control at EPA (Entry 
Point Address). 


Load and Relocate: MIP#, Same as SVC# 37 (LOAD) but perform the 
LOADR, necessary relocation. 
EPA 


Command Scanner CMDSTR, A free format input record - Descriptor array 
KEY, CTRL, for output string - Controls SVC41 processing - 
PAKSTR, Packed output string - Reserved labels for. 
RESLAB command operator 


Wait (Suspend) PRB Suspend execution of this user program until 
for 1/O the I/O (specified by the PRB) completes. 
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Table 5-2. DX980 Supervisor Call Description (Continued) 


Number of 


Base Ten 


SVC Number Function Arguments, Description 
Name(s) 
Allocate Resource 2, JERR, Allocate Resource at runtime. 
IbDT JERR - Error/Availability Code returned to 
caller. 
0 means allocation made 
-5 means device offline 
-4 means device already assigned (un- 
available) 
-3 means device already committed 
(unavailable) 
>0O an error encountered during assign- 
ment. 

JLDT - A user supplied 'assign-time'’ LDT 
from which the "run-time'' LDT is 
built. 

De-allocate 2, JERR, De-allocate resource at run-time. 
Resource JLUNO JERR  - error code returned to caller. 
JLUNO - LUN number under users job of the 
resource to be de-allocated. 
Get Program », ARRAY Get program limits of Job partition and return 
limits values in the user supplied array. 
Start Job 1, J5B Starts an ''independent'' job from the user job. 


JSB (JOB START BLOCK) - a user supplied 
block, for starting a job. Includes any re- 
quired JLDT''s. 
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5.2 INPUT/OUTPUT - SVC NUMBER 0 


@LDM =ARGLST Set M-Register to List Address 


SVC 0 Execute Call 
ARGLST DATA 1 1 Argument 
DATA PRB Physical Record Block 


This I/O call requests the operating system to perform input/output or file 
management action. Sections II] and IV of this manual explain the system 
services available in response to this call. 


5.3 TERMINATE JOB - SVC NUMBER 1 


@LDM =ARGLST Set M-Register to List Address 
SVC i] Execute Call 
ARGLST DATA 0 No Arguments 


This SVC terminates the job issuing the SVC. The Job Management system 
performs job termination, closes any files left open by the user, releases 
the files, devices and memory used by the job step, and prints a job step 
termination message on the system console. If the calling job step is the 
last or only step within a job, a job string termination message is also 


printed. 


SVC 1 is the standard terminating method for jobs that have reached a nor- 
mal conclusion. Although programs normally close all files and devices 
before termination, the operating system can also perform this function. 
Any incomplete input/output operation may be prematurely terminated. 


5.4 SET FLOATING POINT ADDRESS - SVC NUMBER 2 
@LDM =ARGLST Set M-Register to List Address 


SVC z Execute Call 
ARGLST DATA 1 1 Argument 
DATA FLT980 Package Entry Address 


This call supplies the operating system with the address of the floating point 
package within the user's program. The Set Floating Point Address call 
(SVC 2) must be issued before performing any floating point operation. The 
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Floating Point Package in the FORTRAN Subroutine Library must have been 
previously combined with the user program by the link editor. The argu- 
ment is the entry point address of the package. 
5.5 GET MEMORY LIMITS - SVC NUMBER 3 

@LDM =ARGLST Set M-Register to List Address 


SVC 3 Execute Call 
ARGLST DATA 1 1 Argument 

DATA LIMITS Limits Depository Address 
LIMITS BSS fe Lower and Upper 


SVC 3 returns the memory limits of a user job area in the LIMITS argument 
of the SVC. Memory limits correspond to the lower and upper limit regis- 
ters that surround a user's addressable memory area. LIMITS is a two ele- 
ment vector that contains the lower limit in LIMITS (0) and the upper limit 
in LIMITS (1) when control returns to the user program. During program 
execution, this SVC can determine the job area size (<jarea>) that was spec- 
ified when the job was submitted. Since job area size varies with each job 
submission, this information tells a program the amount of memory supplied 
for a given submission. The lower limit is invariably returned as the value 
zero for protected programs. When using SVC 3, the following formula 
yields available memory for workspace: 


Workspace = Supplied Memory Size - Program Residence Requirements 


Upper Limit minus Last Program Address minus 
Lower Limit First Program Address 


SVC 98 performs a similar function and is simpler to use in certain cases, 


5.6 TERMINATE JOB ABNORMALLY - SVC NUMBER 4 


@LDM =ARGLST Set M-Register to List Address 

SVC 4 Execute Call 
ARGLST DATA L -or-Z 2 if Optional Argument Used 

DATA ERRCOD Address of Binary Error Code 

DATA ERRID Optional, Address of 6-character ID 
ERRCOD DATA value System Console Prints Value + 1000 
ERRID DATA '‘ABCDEF' System Console Prints ABCDEF 
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The operating system terminates a job abnormally because of a fatal program 
error. Similarly, the program can terminate itself abnormally because of 
an abortive error made by the user. Since the termination message and 
error code are displayed on the system console, a user can notify the con- 
sole operator of an abortive condition without assigning the system console 

to his program. To avoid confusion between user generated and system gen- 
erated termination codes, the system adds 10, 00015 to ERRCOD before 
printing. ERRCOD is a 16-bit number. 


5.7 TERMINATE TASK - SVC NUMBER 5 


@LDM =ARGLST Set M-Register to List Address 
SVC 5 Execute Call 
ARGLST DATA 0 No Arguments 


SVC 5 invokes normal task termination. If the subject task is the last or 
only task for a job, the job also terminates normally. 


5.8 DELETE TASK(S) - SVC NUMBER 6 


@LDM =ARGLST Set M-Register to List Address 
SVC 6 Execute Call 
ARGLST DATA ] 1 Argument 


DATA TASKID Address of Task Number 


TASKID DATA value 16-bit Value for TASKID 


This call deletes all tasks within the job whose identifying number corre- 
sponds to that given in TASKID. TASKID is a 16-bit binary number that 

must correspond to the TASKID supplied when the subject task(s) was created. 
SVC 6 can delete more than one task at a time if they have the same task 
identification (TASKID). If several tasks are created to perform a similar 
function, the user can thereby cancel them all at once. This SVC is used by 
one task to delete another. Thus, a supervisory routine can maintain control 
by creating and deleting tasks as dictated by the environment. 
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5.9 SUSPEND TASK (WAIT FOR EVENT) - SVC NUMBER 7 


@LDM = ARGLST Set M-Register to List Address 


SVC 7 Execute Call 
ARGLST DATA a Number of Arguments 

DATA WCL Address of Wait Criteria List (WCL) 
po SeSSsSin SSeS SS SS Se SS SSS Sa eS SSS SS Ser SSS SS 
DATA RETEDB Address of a structure containing the | 
: returned event descriptor block (EDB) | 
; 
ee ei ea el Se epianel 
WCL DATA value A List of Events 

DATA value Descriptors 
RETEDB DATA $-$ This field will contain upon activation 


the EDB on which the last matched 
occurred. It must be the size of the 
largest EDB identified in the WCL. 


DATA $-$ 


SVC 7 suspends the calling task until the occurence of the selected combina- 
tion of events as described in the Wait Criteria List (WCL). The Suspend 
Task (SVC 7) and Post Event (SVC 8) calls are extremely useful in multitask 
environments. Together these two SVCs coordinate the activities of several 
tasks that are running asynchronously. The calls cooperate within a single 
job or between separate jobs. The suspend task SVC can also be used inde- 
pendently to wait for specified system events, such as time of day. A task 
may be suspended to wait for a single event or for several events to occur. 
Upon reactivation a user may determine on which EDB the last match oc- 


curred. 
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The returned event descriptor block argument is optional and, if specified, 
this argument is a pointer to a structure large enough to contain the largest 
EDB specified'in the WCL. Upon reactivation of the task, this structure will 
contain the EDB on which the last match occurred. 


5s Sul WAIT CRITERIA LIST (WCL) 


| The Wait Criteria List is the only required argument for the Suspend Task 
SVC. A WCL contains one or more Event Descriptor Blocks (EDB) that de- 
fine the parameters that must be satisfied before the task can resume execu- 
tion. Figure 5-1 illustrates the components of an EDB. The Event Index 
(Word 1) is a numerical value that identifies the event to the operating system. 
These index values are given in the descriptions of system-wide and job- 
oriented event types later in this section. The index may require 0, 1 or 2 
I.D. words within the EDB. The number and meaning of the I.D. words is 
different for each index. 


A WCL containing only one EDB requires no further information. If the WCL 
contains more than one EDB, the EDBs must be preceded in the WCL by two 
words that prescribe: 


1. The two's complement of the number of EDBs in the WCL 
2. How many of the events must be satisfied before the task is activated. 


Figure 5-2 illustrates a WCL containing multiple EDBs. 


5.9.2 SYSTEM-WIDE EVENTS 


A system-wide event is an event that is beyond the scope of a single job. 
When tasks are suspended to wait for a system-wide event, the operating 
system places the associated EDB's in the job extension area, and links 
them together in separate lists for each event index. Each event index list 
may contain EDBs from several concurrent jobs. All system-wide events 
can be specified in an SVC 7 call as an event to reactivate a task. Some 
system-wide events can be specified in an SVC 8 call, while others can be 
posted only by the operating system. Those system-wide events that allow 
an SVC 8 call (user posting) provide the capability for synchronizing tasks 
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Figure 5-1, Event Descriptor Block Organization 
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WORD 1 


? 
TWO S COMPLEMENT OF NUMBER OF EVENTS IN WCL 
NUMBER OF EVENTS TO ACTIVATE TASK 
EDB 2 


WORDS N-N+2 | EDBN | 
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WORD 2 


WORDS 3-5 


WORDS 6-8 


Figure 5-2. WCL With Multiple EDB 


across job boundaries. Table 5-3 lists the system-wide events and their 
attributes. The following paragraphs define the column headings of that 
table. 


5.9.2.1 USER WAITABLE. This column indicates whether the event can 
be the object of an SVC 7 call (user wait) from a user program. 


5.9.2.2 USER POSTABLE. This column indicates whether the event can 
be posted by the user with an SVC 8 call. User postable system-wide events 
are not remembered for matching with subsequent SVC 7 calls. Therefore 
the SVC 7 suspend must precede the SVC 8 post. 


5.9.2.3 SINGLE OR MULTIPLE MATCH. When an event is posted, the 
operating system scans all the EDBs linked with the posted event index to 
determine if the posted event releases any of the waiting tasks. Similarly 
(but only for savable job-oriented events), when a task is suspended, the 
operating system examines previous postings to determine if the event spec- 
ified in the Suspend Task call has already happened. User postable system- 
wide events are not remembered beyond a single scan. Therefore, a Suspend 
Task call awaiting a previously user-posted system-wide event must wait for 
the next posting to be released. The single or multiple match column spec- 
ifies how far the operating system will search following the posting of an 
event. If the table indicates a single match, then the operating system scans 
waiting EDBs until it finds only one task to release. If the table indicates a 
multiple match, the operating system scans all waiting EDBs in the list and 
releases all tasks that are waiting for that event. When multiple tasks are 
released, processing will proceed in priority order. Tasks are released if 
the event I.D. words of both the SVC 7 and SVC 8 match as specified by the 
Relational Operator. 


i eee 
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Table 5.3. User Accessible System-Wide Events 


Single or 
Multiple 
Match 


Relational Event 
Operator Description 


Index User User 
Number | Waitable | Postable 


Multiple Time-of-day (double 
prec. word in milli- 
seconds) 


Multiple Delta time (double 
prec. word in milli- 
seconds; 100 ms min) 


Multiple Any job step termi- 
nation 


Multiple Particular job string 
termination (bits 0- 
11 = job string no.) 


5 |Multiple @ 


Single Open to 
‘Single Open to 
Multiple Open to 
Multiple Open to 
Multiple Open to 


NOTES: 


@ _=siIf Bits 0-7 of the event I.D. are not all one's, then the com- 
pare relation operator ''="' is done on all of the event I.D.; 
otherwise, it is only done on Bits 8-15 of the event I.D. 


@ The event I.D. is a 16-bit composite of an internal de- 
vice I.D. and a control character, as follows: 


Py 7 8 15 


DEVICE 1,.D, CONTROL CHARACTER 


The internal device I. D. is an 8-bit field that identifies 
the data terminal where the control character is gener- 
ated. This field is set to a >FF if the match is to be 
made on any data terminal generating the control char- 
acter. The control character is a 7-bit pattern gener- 
ated on the data terminal. Refer to the table of USASCI 
Control Characters in Section III to determine which 
control characters.are postable. 


5.9.2.4 RELATIONAL OPERATOR. This column lists the criteria for 
determining if the I.D. words of a posted event match the I.D. words of 
a waiting task. The task is released if the I.D. words are equal (=), or 
if the I1.D. words of the posted event are greater than or equal to (>) the 
waiting task's I.D. words. 
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5.9.2.5 NUMBERI.,D. WORDS. This column lists the number of I.D 
words that must be included in the EDB of an SVC 7 cali that specifies the 
assocaited event index number. . 


5.9.3 JOB ORIENTED EVENTS 


Job oriented events synchronize tasks within a single job. All job oriented 
events are User Postable and have a Relational Operator of '"'="", A job ori- 
ented event may be posted by a task even though no other task is currently 
waiting for that event. If the event is specified as savable, the post is pre- 
served until a corresponding wait is issued, or until the job terminates. 
Once saved, the post is not retained past the first match. Table 5-4 lists 
the job oriented events and their attributes. Each job defines the functions 
of the events that it uses. 


Table 5-4. Job-Oriented Events 


Single or 
Multiple 


Number 
I, D. Words 


Savable 


41 Yes Single 1 
42 Yes Single Z 
43 No Single 1 
44 No Single 1 
45 No Single 2 

Multiple ] 

Multiple 1 


Multiple 
Multiple 


5.10 POST AN EVENT - SVC NUMBER 8 
@LDM = ARGLST Set M-Register to List Address 


SVC 8 Execute Call 
ARGLST DATA 1 1 Argument Address 

DATA EDB Address of Event Descriptor Block 
EDB DATA Event index Event Descriptor Block 


DATA I.D. Word 1 
DA TA I.D. Word 2 
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The Post Event SVC notifies the system that the specified event has occurred. 
The system then performs the necessary processing to either activate waiting 
tasks or queue the event posting. Queueing occurs only for savable job- 
oriented events that have no tasks waiting for them at the time of the posting 
call. System-wide events are posted according to the attributes defined for 
the corresponding event index. These postings may affect tasks throughout 
the system. Job oriented events are posted according to the corresponding 
job oriented event index. These postings can only affect tasks within the 
same job. 


The Post Event SVC contains only one argument: an Event Descriptor Block 
(EDB). The format of the EDB for SVC 8 is the same as that for SVC 7. 


5.11 GET TIME AND DATE - SVC NUMBER 29 


@LDM =ARGLST Set M-Register to List Address 
Svc 29 Execute Call 

ARGLST DATA 4 4 Arguments 
DATA BTIM Address for Binary Time (Milliseconds) 
DATA BDAT Address for Binary Date (Year, Day) 
DATA CTIM Address for Character Time (Hours, 

Minutes, Seconds) 
DATA CDAT Address for Character Date (Month, 
Day, Year) 


BTIM BSS 


2 Binary Milliseconds Since Midnight 
BDAT BSS 2 | Binary Year, Binary Day in Year 

S 

3 


CTIM BSS HHMMSS in USASCII 
CDAT BSS MMDDYY in USASCII 


This call gets the current time and date from the system. The operator 
supplies the system with time and date at IPL time and may change it from 
the operator's console while DX980 is running. An interval timer main- 
tains the time for the system. There are 86,400,000 milliseconds in a day. 
The double length time word accomodates 1,073, 741, 823 milliseconds. 
Therefore, the timer does not overflow during a day. The interval timer 
for most installations interrupts each 100 milliseconds so that BTIM is 
truncated to the nearest 100 milliseconds. 
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@LDM =ARGLST 


ARGLST DATA 


TFLAG 


CREATE TASK - SVC NUMBER 30 


Set M-Register to List Address 


SVC 30 Execute Call 
n Number of Arguments 
DATA TPRI Address of Task Relative Priority 
DATA TID Address of Task Identifier | 
DAT TSTART Address of Task Entry Point 
DATA TREG Address of Starting Register Values 
DATA TSS Address of Task System Stack Size 
DATA TWCL ‘Address of Task Wait Criteria List 
DATA TSTK Address of User Stack Address 
(DATA TWRKA Address of Flag for Work Area 
(DATA TFLAG Address of Argument Flags 
(‘DATA ARGI1 User Argument Address 1 ! 
: DATA ARG2 User Argument Address 2 
' < : i 
DATA Priority Relative to Job 
DATA Arbitrary 16-Bit Task 1.D. 
REF TSTART Task Entry Point 
DATA -1=Undefined Register Values, Otherwise, 
Points to Starting Values for A,E,X,M, 
 §,Land B. 
DATA System Stack Size, for New Task 
DATA Zero, or Wait Criteria List if the Task 
begins Suspended While Awaiting for 
a Posted Event (See SVC 7). 
DATA AREA Address of Stack Area 
BSS size Stack Area for Building Call Arguments 
for Task 
DATA 0. If Not Zero, a flag indicating User Work 
Area in AREA 
DATA 0 Bits that Equal 1 to Indicate Arguments 


Transcribed into AREA 


Once a job is running with the single task created by the system, additional 


tasks can be created from the user program with the SVC 30 call. 


The 


created tasks can have an equal or lower priority (high numerically) than 


the job under which the task runs. 


Change 1 


The priority for a new Task, TPRI, is 
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stated relative to the basic job step priority specified in JCL (<jsprty>). 

TID supplies an identifier for the new task. The identifier may be refer- 
enced in a subsequent SVC 6. The starting address for program execution 
within the task is supplied as TSTART. TREG is a pointer to a set of values 
for the register file. If the pointer is to a -1, the register file values for 
the new task are undefined. If the location does not contain -1, the param- 
eter points to values to be passed to the new task inA, E, X, M, S, L, and 
B registers. The new task requires allocation in the job extension area mem- 
ory for system temporary storage (see Section II, < stksize>). TSS specifies 
this allocation. The argument TWCL, if zero, indicates that the new task is 
to be created active. If the first word of TWCL is not zero, then it and sub- 
sequent memory words constitute a wait criteria list as defined under SVC 7 
and the task is created in a suspended state. The wait criteria list defines 


the event(s) that activate the new task. 


5.12.1 OPTIONAL ARGUMENTS 


The call arguments TSTK, TWRKA, TFLAG, and ARG; are optional. If none 
of these are furnished, the new task receives a value defined by TREG in 

the M-Register. If these arguments are supplied, the M-Register points to 
AREA as specified by TSTK in the call. The operating system establishes 
the first word of AREA to specify the number of address arguments to be 
placed in AREA. Any address arguments that the operating system tran- 
scribes into AREA before activating the task appear in the following order: 


1. The address of work space within AREA 
2. ARGI 
3. ARG2 


Each bit in the TFLAG argument corresponds to one of the supplied argument 
addresses; bit 0 represents the first address, bit 1 represents the second ad- 
dress, etc., to a maximum of 16 addresses. If the bit is a zero, the oper- 
ating system transcribes the argument address (ARGi) into AREA. If the bit 
is a one, the operating system transcribes the argument value into AREA 
immediately following the argument addresses, and alters the corresponding 
argument address in AREA to point to the location in AREA containing the 
argument value. Figure 5-3 illustrates possible contents of AREA when the 


task is activated. 


5.12.2 CREATE TASK EXAMPLES 


The following paragraphs illustrate some uses of the Create Task SVC. 
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~ 


NUMBER OF ARGUMENTS IN AREA 


USER ARG! 
ADDRESS 


USER ARG2 
ADDRESS 


bad USER ARGUMENT ADDRESSES 
@ 


USER ARGN 
ADDRESS 


TFLAG=400016 
(TRANSCRIBE ARGUMENT 2) 


M~REGISTER 
POINTS TO — a AREA 


ADDRESS OF WORK AREA 


OR NO USER ARGUMENTS, 
BUT SCRATCH WORK 
AREA SUPPLIED USER ARGI 


ADDRESS 


NEW 2 i NEW ADDRESS FOR ARG2 
ADDRESS OF WORK AREA URDDRESS 
TWRKA SCRATCH 
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M-REGISTER 
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Figure 5-3. Sample TSTK Contents 
At Task Activation 


5-19/5.20 Digital Systems Division 


(@) 
WO 943005-9701 


oe Gare arg | 


NO ARGUMENTS. 


The following sample call creates a task that 


activates a non-reentrant subroutine, NEWTSK, with no arguments. 
NEWSTK performs non-file I/O, thus requiring a TCB stack of 110 words. 


@LDM 
SVC 
BRU 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


LIST 


ZERO 
TASKID 
MINUS1 
TCBSTK 


DATA 
DATA 
DATA 
DATA 
REF 


Se ere org 4 


DORMANT TASK. 


=LIST 
30 
NEXT 


6 
ZERO 
TASKID 


NEWTSK — 


MINUS1 
TCBSTK 
ZERO 


0 

1 

-1 

110 
NEWTSK 


Set List Address 
Create Task 
Computation continues - 


Six Arguments in List 

New Task Priority Same as Job Priority 
Numeric Task Identifier 

Pointer to NEWTSK 

No Register Arguments 

TCB Stack of 110 Words 

Create Active Task 


Constants, Arguments, etc. 


The following example creates a dormant task 


that activates in 10 seconds and then activates a non-reentrant subroutine, 


NEWTSK, with no arguments. 


ing a TCB stack of 110 words. 


@LDM 
SVC 
BRU 
DATA 
DATA 


LIST 


DATA 
DATA 
DATA 
DATA 
DATA 


=LIST 
30 
NEXT 


6 
ONE 


TASKID 


NEWTSK 


MINUS1 
TCBSTK 
WCL 


NEWTSK performs non-file I/O, thus requir- 


Set List Address 
Create Task 
Computation Continues 


Six Arguments in List 

New Task Priority One Lower Than 
Job Priority 

Numeric Task Identifier 

Pointer to NEWTSK 

No Register Arguments 

TCBSTK of 110 Words 

Pointer to Wait Criteria List 


(listing continued on next text page) 
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(listing continued from preceding text page) 


Constants, Argurnents, etc. 


ONE DATA ] 
TASKID DATA 0 
MINUS1 DATA -1 
TCBSTK DATA 110 
WCL DATA 23 
DATA 0 
DATA 10000 
REF NEWTSK 


5.12.2.3 ARGUMENTS INA AND X, The following example creates a task 
that activates a non-reentrant subroutine, NEWTSK, with one argument in 
the A register and one argument in the X register. NEWTSK performs non- 
file 1/O, thus requiring a TCB stack of 110 words. 


@LDM =LIST Set List Address 
SVC 30 Create Task 
BRU NEXT | Computation Continues 
LIST DATA 6 Six Arguments in List 
DATA ZERO New Task Priority Same as Job Priority 
DATA TASKID Numeric Task Identifier 
DATA NEWTSK Pointer to Newtsk 
DATA TREG Pointer to Register File 
DATA TCBSTK TCB Stack of 110 Words 
DATA ZERO Create Active Task 


Constants, Arguments, etc. 
TREG DATA RFILE 


ZERO DATA 0 
TASKID DATA 1 


RFILE DATA I A Register - Address of I 
BSS 1 E Register - Dummy 
DATA 10 X Register - Index of 10 
BSS 1 M Register - Not Specifiable 
BSS 3 S, L, B - Dummy . 


TCBSTK DATA 110 
REF NEWTSK 
I BSS 100 Data Array 
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5.12.2.4 TWOARGUMENTS. The following example creates a task that 
activates a non-reentrant subroutine, NEWTSK, with two arguments, ARGi 


and ARG2Z. NEWTSK performs non-file I/O thus requiring a TCB stack of 
110 words. 

LDM =LIST Set List Address 
SVC 30 Create Task 
BRU NEXT Computation Continues 

LIST DATA I11 Eleven Arguments in List 
DATA ZERO New Task Priority Same as Job Priority 
DATA  TASKID TASKID of One 
DATA NEWTSK Pointer to NEWTSK 
DATA MINUS1 No Register Arguments 
DATA TCBSTK TCB Stack of 110 Words 
DATA ZERO Create Active Task 
DATA STKPTR Stack for Argument List 
DATA ZERO No Work Space 
DATA ZERO No Volatile Arguments 
DATA ARGI Pointer to First Argument 
DATA ARG2 Pointer to Second Argument 

Constants, Arguments, etc. 

ZERO DATA 0 

TASKID DATA 1 

MINUS1 DATA -l 

TCBSTK DATA 110 

STKPTR DATA $+1 
BSS 3 

ARGI1 DATA X,Y,Z 

ARG2 DATA I,J 
REG NEWTSK 


5.12.2.4 TWO ARGUMENTS AND WORKSPACE, The following example 
creates a task that activates a reentrant subroutine, RSUB, with two argu- 
ments, ARGI and ARG2. RSUB performs file 1/O, thus requiring 300 words 
of TCB stack. In addition, RSUB requires 10 words of remote data area for 


workspace. 
@LDM =LIST Set List Address 
SVC 30 Create Task 
BRU NEXT Computation Continues 


(listing continued on next text page) 
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LIST 


ZERO 
TASKID 
MINUS 1 
TCBSTK 
STKPTR 


ARGI 
ARG2 


9701 


(listing continued from preceding text page) 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1] 

ZERO 
TASKID 
RSUB 
MINUS1 
TOBSITK 
ZERO 
STKPTR 
MINUS1 
ZERO 
ARGI1 
ARG2 


0 

Z 

-1 

300 
$+1 

14 
x7 
1 
RSUB 


Eleven Arguments in List 

New Task Priority Same as Job Priority 
TASKID of Two 

Pointer to RSUB 

No Register Arguments 

TCB Stack of 300 Words 

Create Active Task 

Stack for Argument List and Work Area 
Nonzero Signifies Work Area Supplied 
No Volatile Arguments 

Pointer to First Argument 

Pointer to Second Argument 


Constants, Arguments, etc. 


LOAD MEMORY IMAGE PHASE - SVC NUMBER 37 


ARGLST 


NOTE 


SVC 37 is not normally used directly by a user pro- 


gram. 


Normally the overlay manager calls SVC 37 


for the user as described in Section VIII for DXOLE. 


@LDM 
SVC 

DATA 
DATA 
DATA 
DATA 


MIPNUM DATA 


MODULE BSS. 


LOADR 
EPA 


DATA 
BSS 


-ARGLST 


of 


5 
MIPNUM 
LOADR 
EPA 


n 


k 


MODULE 
1 


Set M-Register to List Address 
Execute Call 


3 Arguments 
Address of Memory Image Phase Number 
Address at Which to Load 
Entry Point Address 


Memory Image Phase Number per DXOLE 
Load Map 
Overlay Area 


Start Address for Execution 
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SVC 37 loads memory image phases directly from the load module file as- 
signed to the running job. A memory image phase is a separate program 
segment that was produced by the DX980 Linkage Editor (DXOLE),. DXOLE 
assigns a number to each memory image phase and outputs that number as 
part of the DXOLE load map. Refer to the DXOLE description in Section VIII 
of this manual for further details on load modules and memory image phases. 
The SVC 37 call applies to preplanned overlays. This means that the link 
editor must establish the load address relative to the main program (root). 
The overlay may only be loaded at that one relative address. On return 
from SVC 37 EPA contains the entry point address of the loaded phase. _ 


5.14 LOAD AND RELOCATE MEMORY IMAGE PHASE - SVC NUMBER 38 
@LDM =ARGLST Set M-Register to List Address 


SVC 38 Execute Call 
ARGLST DATA 3 3 Arguments 
DATA MIPNUM Address of Memory Image Phase Num- 
ber 
DATA LOADR Address at Which to Load 
DATA EPA Entry Point Address 
MIPNUM DATA on Memory Image Phase per DXOLE Load 
7 Map 
MODULE BSS k Overlay Area 
LOADR DATA MODULE 
EPA BSS: 1: Start Address for Execution 


SVC 38 transfers memory image phases to memory and relocates them wiith- 
in memory. The relocation map for the memory image phases is brought in- 
to the job extension area at the same time that a memory image phase is 
brought into the job area. The relocation map must, therefore, be consi- 
dered when determining the size of the job extension area. The size of the 
relocation map can be determined by dividing the number of words in the 
memory image phase by sixteen (one map bit per phase word). This call ap- 
plies to overlays that are not preplanned. Therefore, the link editor did not 
assign a fixed address to the overlay relative to the main program (root). 
The LOADR cell holds the load address of the module. This address may be 
determined dynamically. On return from SVC 38 EPA contains the entry 
point address of the loaded phase. 
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5.15 COMMAND SCANNER MODULE ~- SVC NUMBER 41 


CLDM = ARGLST Set M-Register to List Address 


SVC 4] Execute Call 

ARGLST DATA n number of arguments 
DATA CMDSTR command string 
DATA KEY key word area 


DATA CTRL control information 
DATA  PAKSTR packed string 
DATA RESLAB reserved labels 


—_—— me ee eee ese eee 


DATA MAXCH number of characters to scan 


[RA 


= 
i 
i 
i 
optional | 
aa eae Seo he tee eae oh eis aes ear sc tec reat a Bs epee Ee Ek Ske ee ere | 
The Command Scanner SVC is a DX980 nucleus module that can be accessed 
through SVC 41. SVC 41 accepts free format command records and pro- 
duces fixed format arrays. Table 5-5 describes the language syntax accepted 
by the command scanner. 


5.15.1 EXTERNAL INTERFACE 


The linking to SVC 41 is identical to the linkage for other SVC's. The M reg- 
ister points to an argument list. The first word of the list contains the num- 
ber of arguments. Subsequent words contain the argument addresses. 


5.15.1.1 INPUT. All arguments, except PAKSTR, must be initialized by 
the calling routine before issuing the SVC. The following parameters are 
necessary as input: 


CMDSTR. The command string may be a variable length input record. 
If the MAXCH argument is specified, then the size of the command is 
specified via this argument; otherwise, the command string is assumed 
to be an 80 character input record, in which case if the actual string 
is less than 80 characters long, it should end with a period or semi- 
colon, or have the remaining characters filled with blanks. 


KEY. KEY is an array that holds the descriptors for the command plus 
all arguments in CMDSTR. The calling routine must zero the first word 
of the KEY array before invoking the SVC. If the Command Scanner 

later requests continuation records for a command, the first word con- 
tains a non-zero value. This value should not be changed until the calling 


routine wants to start a new command. 


Change 1 5-26 Digital Systems Division 


fo} 
rig 943005-9701 


Table 5-5. Description of Command Language (Backus-Naur Format) 


<command>::=<command string>. 
<command string>::=<command identifier>| 
<command identifier> <delimiter> <operand string> 

<command identifier> ::=<label>| <blanks> <label> 
<operand string> ::= <operand> 

l<operand strings <delimiter> <operand> 
<delimiter> ::=,]4 '<delimiter> | <delimiter> ]; 
<blanks> ::=4<blanks>|]%| (no characters) 


A command can extend over several input records. The first 
characters on the record will be ignored if CTRL word 5 is 
appropriately set. If a command extends to the next record, 
then the rightmost delimiter on the current record should be 
a semi-colon. If neither a period nor a semi-colonis pres- 
ent at the end of a record, then a period is assumed. Com- 
ments may appear between the period or semi-colon and the 
end of the record. The command identifier is compared 
against the labels in the Reserved Labels table. If the com- 
mand identifier is found in the table, the identifier is treated 
as a Reserved Label; otherwise, the command identifier is 
treated as a label. Only the leftmost eight characters of the 
command identifier are significant. 


<operand> ::=<label>| <number>| <expressions> | <range> 
]<empty operand> 
| <string> |<assignment> 
<label>::=<letter> | <label> <letter> | <label><decimal digit> 
<letter> ::= A|B| C/DIE|FialuliisiKILIMINlolplalaisitiulviwixlylz 
The length of labels is not restricted. 
<number> ::= <sign><decimal integer>|<decimal integer>|<hex integer> 
<decimal integer> ::=<decimal digit> |<decimal integer> <decimal digit> 
<decimal digit>::= ol1l2/3la|slél7isl9 
<sign>::=+1- 


<hex integer> ::=><hex digit>|<hex integer> <hex digit> 
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Table 5-5. Description of Command Language 
(Backus-Naur Format) (Continued) 
<hex digit> ::= Olilzl3l4l5l6l zi slolalslclplelr 


Decimal integers must be in the range of -32768 to 32767. 
Hex integers must not contain more than four hex digits. 
Numbers larger than four hex digits must be described by 
strings. 


<expressions> ::=<label>+<right side> 
| <label> (<subscripts> )=<right side> 
<right side>::=<number>|<label>] <string>] (<subscripts> ) ]}<range> 
<subscripts> ::= <subscripts> , <script>] <script> 
<script> ::= <number>|<label> 
The number of subscripts allowed is not restricted. 
<empty operand>::= {the empty set} 


An empty operand is generated for every occurrence of 
one of the following conditions: 


e <A pair of commas separated by no other characters 
or only by blanks. 


e A comma anda period separated by no other char- 
acters or only by blanks. 


e Acomma anda semi-colon separated by no other 
character or only by blanks. 


<subscripted expression>::=<label> (<subscripts> )= <right side> 

<subscripts> ::=<subscripts>, <script>|<script> 

<script>::= <number>| < labels> 
The number of subscripts allowed is not restricted. 

<string> ::=]|<substring>| 

<substring> ::=<character>|< substring> <character> 

<character>::= Any USASCII character. Ifa "TGs to appear ina 
<substring>, then "Il" should appear in the input to the scanner. 
The length of the strings is not restricted. 

<assignment> ::=<label>: =<label> 


<range> ::=<number>:<number> 
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CTRL. CTRL is a six word array, that must be initialized as follows: 
r Word 0 - Number of Characters Reserved for PAKSTR 
e Word 1 - Number of Words Reserved for KEY 


e@ Word 2 - Not Initialized by the Calling Routine. Used by 
Command Scanner for Workspace 


e Word 3 - Not Initialized by the Calling Routine. Used by 
Command Scanner for Workspace 


r) Word 4 - Number of Labels in RESLAB 


e Word 5 - The Column Number in CMDSTR Where Scanning is 
to Start; the First Column in CMDSTR is Column 
Zero. 


MAXCH. MAXCH is a one-word field containing the number of char- 
acters to scan. This argument is optional and if not specified the com- 
mand string size is assumed to be 80 characters. 


5.15.1.2 OUTPUT. SVC 41 changes PAKSTR and KEY, plus two words of 
workspace. The following paragraphs describe the effects on these two ar- 
guments. 


PAKSTR. PAKSTR is used for storage of alphanumeric fields that were 
retrieved from CMDSTR, The fields are packed together under control 
of the KEY array. 


KEY. The first word of KEY contains a completion code. The remain- 
ing words contain a translation of the command string. The value of the 
completion code indicates one of the following conditions: 


® Normal End of Scan - A complete command has been success- 
fully decoded. 

e Continuation Requested - The command extends across more 
than one record. The value of the completion code minus one 
is the number of continuation records previously read. KEY 
array contains descriptors for all fields of CMDSTR that have 
been scanned. 


e Error - Scanning of CMDSTR is terminated. The value of the 
completion code indicates which error has occurred. Table 
5.6 describes the error numbers. The KEY array contains 
descriptors for all fields of CMDSTR that have been scanned. 
However, the last descriptor may be incomplete or erroneous. 
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Table 5-6. Error Codes 


Explanation 


Overflow of the keyword area. 


Overflow of packed strings character string. 

The right-hand side of an expression or range is missing. 
Unrecognizable or illegal subscript. 

Missing delimiter after command identifier. 

Number is larger than 16 bits. 

Operand starts with illegal character. 

Illegal digit in number. 

Missing delimiter after operand. 

Missing delimiter after subscript. 

Illegal character precedes command. 

ITS Run command does not contain a label or an expression. 
Missing equal sign following colon in assignment. 
The right-hand side of an assignment is missing. 
Too many equal signs in expression. 


Negative number of characters specified for PAKSTR by 
CTRL word 0. 


Non-positive number of words specified for KEY by CTRL 
word l. 


Non-positive number of labels specified for reserved 
labels list (RESLAB) by CTRL word 4. 


The starting column for the scan, specified by CTRL 
word 5, does not fall into the range of zero to seventy-nine. 


Following the completion code is a description of the translation of CMDSTR. 
The second word of KEY contains the number of operands detected in 
CMDSTR. The remainder of KEY contains descriptors for the operands. 
The format for KEY is illustrated in figure 5-4. The operand descriptors 
are described in figure 5-5. The eight possible descriptor types are: 
Label, Number, Expression, Range, Reserved Label, Empty Operand, 
String, and Assignment. 
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LABEL DESCRIPTOR EMPTY OPERAND DESCRIPTOR 


NUMBER OF CHARACTERS 
IN LABEL 


POINTER TO START OF 
LABEL IN PAKSTR SUBSCRIPTED EXPRESSION DESCRIPTOR 


ee 


ER D OR 
lb Eaonan) NUMBER OF CHARACTERS 


IN LABEL 
DESCRIPTION OF 
LABEL ON LEFT SIDE 


POINTER TO START OF 
LABEL. IN PAKSTR 


VALUE OF NUMBER 


NUMBER OF SUBSCRIPTS ON 
LEFT SIDE 
DESCRIPTORS FOR 


DESCRIPTORS FOR LEFT SIDE | (‘Gpiprs oO 


SUBSCRIPTS (NC DESCRIPTORS 
ASSIGNMENT DESCRIPTOR IF NUMBER SUBSCRIPTS = 0) 


NUMBER OF SUBSCRIPTS 
ON RIGHT 


NUMBER OF CHARACTERS DESCRIPTORS FOR 


IN LABEL RIGHT SIDE suB— 
DESCRIPTORS FOR RIGHT SIDE s Ss 
eater aig SUBSCRIPTS (MUST BE AT 
POINTER TO START OF LEAST ONE) 
NUMBER OF CHARACTERS 
IN LABEL 
RIGHT SIDE OF 
ASSIGNMENT STRING DESCRIPTOR 
POINTER TO START OF 
LABEL. IN PAKSTR 
7 


NUMBER OF CHARACTERS 
IN STRING 


RANGE DESCRIPTOR 


RESERVED LABEL DESCRIPTOR 


POINTER TO START OF 
STRING IN PAKSTR 


POINTER INTO RESLAB 


(A)130126A 


Figure 5-5. Templates for Descriptors in KEY Array 
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KEY ARRAY IN MEMORY 


WORD 0 
WORD 1 
WORD 2 
e 
e DESCRIPTOR FOR 
e EACH OPERAND 
WORDN 
(A)130120 


Figure 5-4, Format of Key Array After Return from SVC 41 


5.15.2 SVC 41 EXAMPLE 


The ITS Supervisor uses SVC 41 to decode commands from each terminal. 
The arguments could be declared as follows: 


CMDSTR BSS 80 Terminal command line 
KEY BSS 50 Key array 
CTRL DATA 80 Number of characters in PAKSTR 
DATA 50 Number of words in KEY 
BSS 2 Workspace for SVC 41 
DATA 12 Twelve valid commands 
DATA 0 START SCAN at 0 
PAKSTR BSS 80 Packed string 
| RESLAB DATA 'LOGON '! Reserved labels 
DATA 'LOGOFF' 
DATA 'RUN ! 
DATA 'STATS ' 
DATA ‘EDIT i 


DATA 'ENTER ' 


(Listing continued on next text page) 
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(Listing continued from preceding text page) 


DATA 'JOB ' 
DATA 'DELETE! 
DATA 'F] : 
DATA 'F2 : 
DATA 'Al ’ 
DATA 'A2 ; 


If a terminal user enters the following command: 
EDIT FILE=(1, USERO1, MVFILE). 


The command is stored in CMDSTR by an ITS I/O routine. The ITS super- 
visor issues SVC 4] with the standard argument linkage for SVC's, After 
control returns from the command scanner, PAKSTR and KEY contain the 
values illustrated in figure 5-6. 


PAKSTR 


SCAN COMPLETE 


5 DESCRIPTORS 


COMMAND 


a 


LEFT SIDE OF EXPRESSION ff 


a 
ri 
NO SUBSCRIPTS ON LEF” SIDE 


fe 


3 SUBSCRIPTS ON RIGHT SIDE 


FIRST ARGUMENT 


wn 


SECOND ARGUMENT 


THIRD ARGUMENT 


(A)130122 


Figure 5-6. Resulting Contents of KEY and PAKSTR 
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5.16 WAIT FOR I/O - SVC NUMBER 43 
@LDM =ARGLST Set M-Register to List Address 


SVC 43 Execute Call 
ARGLST DATA 1 1 Argument 
DATA PRB Address of PRB Used for Initiate Call 


The Wait for I/O SVC is used in conjunction with an Initiate I/O data transfer 
(see Section III) or with a multitasking program that requires synchronization 
of 1/O and processing tasks. For Initiate I/O calls the calling program con- 
tinues execution during the actual1/O transfer. If processing must be dis- 
continued at some point in the program until a requested1/O transfer is com- 
plete, the Wait for1/O SVC is issued. Program execution is then suspended 
until the I/O transfer is complete. If the 1/O is already complete, process- 
ing proceeds without suspension. 


The procedure is similar for multitasking programs except that a separate 
task issues an Execute I/O rather than an Initiate 1/O call. Other tasks 
issue a Wait for 1/O SVC to synchronize the 1/O with processing portions of 
their program. 
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re et ALLOCATE RESOURCE - SVC NUMBER 49 
@LDM =ARGLST Set M-Register to List Address 


SVC 49 Execute Call 
ARGLST DATA 2 2 Arguments 
DATA JERR Address or Return of Error Code 
DATA JLDT Address or Resource Assignment Block 
JERR BSS ] 0=Ok, 39=Device Offline, 88=Device Un- 
available, > O= Error 
JLDT BSS 20 Assignment Block 


The Allocate Resource SVC assigns a logical unit to a device or file from 
within user code at runtime. This feature permits extension of the job as- 
signments that were made with JCL (refer to Section II for a discussion of 
JCL assignments). In response to SVC 49, the Operating system checks the 
availability of the requested resource. If the resource is available, the op- 
erating system assigns that resource to the specified user job LUN. If the 
specified LUN matches a previous user LUN, the new assignment super- 


cedes the old assignment. 


When using SVC 49 with a high priority program, 
ensure that lower priority programs have not re- 
served the requested resource. Failure to observe 
this precaution may deadlock the system until the 
lower priority program releases the device. 


Input parameters for SVC 49 are one word for error code return, plus 
another word group for the resource assignment block. The error code re- 
turned in the first parameter is one of the following quantities: 


® 0 = Allocation Made 

e 39 = Device Offline 

e 88 = Device Already Assigned/Committed 
e other (See Appendix A for error codes) 


The resource assignment block (JLDT) describes the file or device to be 
assigned. The length of this block varies. It is four words long for a de- 
vice assignment, 13 words long for an old file assignment, and 20 words 
long to define a new file or replace an old file. Table 5-7 lists the word and 
bit assignments for all fields of the resource assignment. Unused fields 
should contain zeros for compatability with future uses. 
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Table 5-7. Resource Assignment Block (JLDT) Format 


Field Description 


| Flag Word 
0 | Not used 
1 Device(0)/file(1) flag 
| 2 | Not used 
3 Exclusive(0)/shared(1) access flag 
4.5 | Not used(00)2 
6 | No pass(0)/pass(l1) resources flag 
| Remainder of bits applicable to file assignments only: 
7 | No delete(0)/delete(1) file flag 
8-9 | Disposition flag; 
| | 002 = Assign old file | 
| | | 012 = Define new file 
4 102 = Replace old file 
| 112 = Illegal disposition | 
10-11 | File type flag | 
| 002 = Illegal type 
| | 012 = Linked sequential 
| 102 = Relative record | 
112 = Key indexed 
12 | Permanent(0)/temporary(l1) file flag . | 
13215 Not used (000), | 
| 
0-7 Not used 
| | | 8.15 | Logical unit number (LUN) | 
2 Device index (decimal 1-256 corresponding to device re- | 
quired). Actual device indexes for the physical devices | 
can be obtained through the List Device (LD) command | 
during IPL. | 
3 Reserved for future use | 
Remainder of words applicable to file assignments only: 
4 Number of buffers to be used for file I/O 
oe | File owner user ID (6 USASCII alphanumeric characters) 
8-10 File name (6 USASCII alphanumeric characters) 
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Table 5-7. Resource Assignment Block (JLDT) Format (Continued) 


Bit Field Description 


Remainder of words applicable to file define/replace 
only: 


Integrity code 
Read code 
1002 = Creator only 
1102 = Password owner 
lllo = Any user 
Write code-same options as read code 
Delete code-same options as read code 
Execute code-same options as read code 
Not used 
Initial file size (in tracks) 
First disc address for allocation (in tracks) 
Physical record length (in words) 
Maximum file size (in tracks) 
Logical record length (in characters) for relative rec- 
ord files only 
Key length (in characters) for key indexed files only 


5.18 DEALLOCATE RESOURCE - SVC NUMBER 51 


@LDM =ARGLST Set M-Register to List Address 
SVC ou Execute Call 
ARGLST DATA é 2 Arguments 
DATA JERR Address for Return of Error Code 
DATA JLUNO Address for Logical Unit Number 
JERR Boo ] 0=Ok, >O=error 
JLUNO DATA n Logical Unit for Released Resource 


The Deallocate Resource SVC removes an assignment of a device or file from 
a user program at runtime. The released resource may have been allocated 
to the job step initially by JCL or may have been allocated during runtime 
with a SVC 49 call. 


The input parameters consist of a word for return of error code from DX980 
(0=Ok, >O=improper LUN), plus a word containing the LUN(1-254) to be 
deallocated. 
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5.19 GET PROGRAM LIMITS - SVC NUMBER 98 


@LDM =ARGLST Set M-Register to List Address 
SVC 98 Execute call 
ARGLST DATA 1 1 Argument 
DATA LIMITS | Address for Limits Depository 
LIMITS BSS 2 Lower and Upper 


SVC 98 is identical to SVC 3 (Get Memory Limits) except that the memory 
limits returned in LIMITS correspond to the area between the last word of 
the user program and the end of the job area. This SVC determines the 
amount of memory remaining for work area beyond the actual program code. 
When using this SVC in conjunction with preplanned overlays, LIMIT (0) 
contains the first word beyond the longest overlay; when used with non- 
preplanned overlays, LIMIT (0) contains the first word beyond the root seg- 
ment. 


5-20 USER START JOB - SVC NUMBER 129 


@LDM =ARGLST Set M-Register to List Address 
SVC 129 Execute cail 

ARGLST DATA i 1 Argument 
DATA JSB _ Address for Job Structure Block 


The User Start Job SVC presents independent job steps to the system for exe- 
cution. The input to this SVC consists of a Job Structure Block (JSB). To 
initiate a multistep job string, the user must issue a separate User Start 
Job SVC for each job step of the string. The JSB for a single job step con- 
sists of a 26 word preamble plus one resource assignment block (JLDT) for 
each resource to be initially assigned to the job step. Refer to the Allocate 
Resource call (SVC 49) for a description of the JLDT. Table 5-8 lists the 
word and bit assignments for the JSB preamble. Jobs may be started from 
the system console or via batch or interactive input through the subsystems. 
All of these methods utilize JCL. Jobs should be initiated in those ways 
rather than through SVC 129. User Start Job should be used only when other 
alternatives are unsatisfactory. If the system detects an error in the struc- 
ture of a job being submitted, it dismisses all previous job steps and aborts 
the job. 
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Table 5-8. Job Structure Block (JSB) Preamble Format 


Field Description 


Total length of JSB (for one job step, including all 
JLDT's) 


Flagword 
Last job step in sequence of steps within a job 
O=No (More SVC 129's are forth coming in this 
job) 
1=Yes (This is the last SVC 129 for this job) 
Privileged mode 
O=Unprivileged mode < PROT > 
1=Privileged mode <PRIV> 
Not used 


User1I.D. -<userid> (6 alphanumerics in USASCII) 


Job name -<jsname> (6 alphanumerics in USASCII) 


Job step number within job string (1 to 15) 
Job priority - <jsprty> (1 to 31) 


Number of task priority levels within the job -<nprty> 
(1 to 31) 


User partition size - <jarea> (load module + user buffer) 


Job size -<jearea> (I/O buffers + job internal system 
control area) 


Stack size of initial task TCB and default size for sub- 
sequent tasks - <stksiz> 


Time limit for job step (in seconds); -1 indicates no 
time limit 

Two words, initially zero, for use by DX980 

Load module volume ID - <volume> 


Load module user 1.D. (6 alphanumerics USASCII) - 
<fileid> 


Load module file name (6 alphanumerics in USASCI]I) - 
<filnam> 


Load module password (4 alphanumerics in USASCII) - 
<pswd> 


JLDT's 
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SECTION VI 
BATCH PROCESSING SUBSYSTEMS 


6.1 GENERAL 


Three separate subsystems provide batch processing capabilities to the 
DX980 user. These subsystems are Batch Input Reader (BIR), Batch Input 
Spooler (BIS), and Batch Output Spooler (BOS). The two input subsystems 
allow submission of user programs through a card reader. These subsys- 
tems accept a data stream of intermixed data and control cards. However, 
the BIS subsystem stores the input information on disc prior to activation of 
the job, whereas the BIR subsystem allows the executing program to read 
directly from the input peripheral device. Similarly, the BOS subsystem 
reads program output from a disc and transfers it to a low speed output de- 
vice such as a line printer. The subsystems may run concurrently as long 
as they each have separate peripheral devices. Normally, the operator 
starts one subsystem and allows it to run continuously. Any of the subsys- 
tems, however, may be stopped at any time. 

The subsystems are structured and invoked in the same manner as a job, 


Each subsystem requires a JCS that identifies the peripheral devices and the 
load module file. The operator activates the subsystem with JCL Job and 


D ase PA eRe OSs SS Aa fuaninnr tha ae rater am Foo anal —_ i ae epee £A11 Fn te ee tuanw “~_ Oe ow 2 Ae v7 a Le 
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the operation of each subsystem and provide examples of batch processing 
sequences, 


6.2 BATCH INPUT READER (BIR) 


ane BIR pee esos SURCTLONS asa a single St cape ee cari Re ees 


sea the batch input device may be unavailable to other users until 
that program terminates, The BIR subsystem does, however, decrease the 
I/O overhead associated with spooling. Figure 6-1 illustrates a typical deck 
structure for BIRinput. The following control commands govern BIR pro- 


cessing: 
//JOB JCL Job command 
//RUN JCL Run command 
/{DATA BIR Data Control command 
/$ BIR End of Job command 


6.2.1 JOB COMMAND 


The Job command used with BIR is identical to the JCL Job command and 
defines the start of the job. This command is described in Section II of this 
manual, 
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ENTER VIA CONSOLE 
//JOB BIR SYSTEM 
77 RUN BIR 


RUN ASMLGO DSRC=CRI 


FORTRAN COMPLIER DELIMITER 


Yi 
V a 
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Uf 
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DATA 
CARDS FOR 
FORTRAN 
PROGRAM 
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FORTRAN PROGRAM DELIMITER 


FORTRAN COMPILER DELIMITER 


Pe #RUN FTNLGO DSRC=CRI DEVS=CR1 


NOTE. 1. BIR REQUIRES A CARD READER FOR INPUT 
(8)130751 


Figure 6-1, BIR Input Deck Structure 


6.2.2 RUN COMMAND 


The Run command used with BIR is identical to the JCL Run command and 
defines the JCS that loads and executes the requested 120% ‘This command is 
described in Section II of this manual. 


6.2.3 DATA CONTROL COMMAND 


The Data command (//DATA) identifies the start of the user data input. This 
command must be included following the Run command and before the data 
stream whenever data appears in the job input to BIR. The Data command 
for BIR contains only the six character symbol, //DATA, Other information 
may be included, but BIR ignores that input. Only one DATA command is 
allowed ina BIR job. The data deck must be organized in the order expected 
by the user program, The data deck cannot contain intermixed control cards, 


6.2.3.1 SYSIN ASSIGNMENT, If the JCS identified in the Run command 
contains an assignment to the generic device, SYSIN (/ASSIGN 6 SYSIN.,), 
then the input job must contain a Data command, When BIR reads the Data 
command, it deallocates the input device and suspends operation until the 
user program terminates, The user program then executes and is assigned 
the same input device. The program acquires all data from this peripheral 
as it is needed until processing terminates, At that point, BIR reactivates 
and scans the input from the peripheral device for a new Job command, 
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6.2.3.2 DEVICE ASSIGNMENT. If the user job contains an assignment to 
the same I/O device that BIR is using, BIR again deallocates that device and 
suspends processing until the user job completes, For example, if device 
CR1 is assigned as the input device for BIR and a user job desires input 
from that device, then the user job input must also contain a Data command 
following the Run command, plus the associated input data. BIR then pro- 
cesses the input as if the JCS for the job had assigned the input to SYSIN, 
The JCS may contain many assignments to either SYSIN or the BIR input de- 


vice, All such assignments designate th 


e 
uch nmer te the same device, 


Lhe Ne 


6.2.4 END OF JOB COMMAND 


The End of Job command (/$) follows the last data input of the user program 
and precedes the next Job command in the input stream, This command re- 
sets BIR for the next job and signals the end of the current job. 


6.3 BATCH INPUT SPOOLER (BIS) 


The BIS subsystem receives input from the assigned peripheral device and 
stores that input on a disc prior to the start of the related program. This 
operation is called spooling. When the program starts, it can access data 
from the high speed disc, rather than from the low speed input peripheral. 


This system allows shorter program execution time and submission of other 
jobs while the first job is executing. Figure 6-2 illustrates a typical deck 
structure for BIS input. The following control commands govern BIS pro- 


cessing: 
//JOB JCL Job command 
//RUN JCL Run command 
//DATA BIS Data Control command 
/$ BIS End of Job command 


6.3.1 JOB COMMAND 


The Job command used with BIS is identical to the JCL Job command and de- 
fines the start of the job, This command is described in Section II of this 
manual, 


6.3.2 RUN COMMAND 


The Run command used with BIS is identical to the JCL Run command and 
defines the JCS that loads and executes the requested job, This command is 
described in Section II of this manual. 


6.3.3 DATA CONTROL COMMAND 


The Data command (//DATA) identifies the start of the user data input. This 
command must be included following the Run command and before the data 
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ENTER VIA CONSOLE 
//JOB BIS SYSTEM 
// RUN BIS 


Pais JOB DELIMITER 
pare DELIMITER 


| eae //RUN ASMLGO DSRC=SYSIN 


fp BIS JOB DELIMITER 
DECK 


fr DATA A 


(mm | 7//RUN FTNLGO DSRC=SYSIN 
(NO FORTRAN DATA CARDS) 


Ps BIS JOB DELIMITER 


NK FORTRAN PROGRAM DELIMITER 


// 7t DATA A 


[1 7/7 RUN FTNLGO 


(B)130752 


Change 1 


J wentiries DECK FOLLOWING AS DSRC FOR COMPILER JCL 


we 7/RUN FTNLGO DSRC=SYSIN DEV5=SYSIN 


NOTES, 1. BASED ON A MINIMUM CONFIGURATION AND SUPPLIED FTNLGO SEQUENCE 
BIS REQUIRES CARD READER FOR INPUT 


Figure 6-2. BIS Input Deck Structure 
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stream whenever data appears in the job input to BIS. More than one Data 
command may appear in the input to BIS, Each Data command is in the 
form: 


//DATA,[<p1>],[<p2>]. 


6.3.3.1 PARAMETER <p,s. Parameter <p,s is optional. If supplied, 
this field contains the letter J. If BIS detects the letter J in this field, it 
spools all cards following the Data command onto the disc including any sub- 
sequent Data commands. In this mode the End of Job command (/$) is the 
only job delimiter, Ifthe letter J is not supplied in this field, BIS interprets 
subsequent Data commands as well as End of Job commands as data deck 
delimiters, This allows the data input to be subdivided for use by different 
portions of the program, If the Data command contains a J entry, it must | 
be the last Data command in the input stream since the remaining cards are 
not interpreted, . 


6.3.3.2 PARAMETER<p,s. Parameter <p, s specifies the type of data 
conversion to be used during spooling, Three entries are possible for this 
parameter: 


e A The letter A specifies conversion of the input data to USASCII 
before storing the data on disc. 


ae DD genans fi ne Hae A tae At thn Set Hata tv 
GD Speer1s€s CUUVE S10 UL LLG liipul Gata LO 


B L lette 
before storing the data on disc, 


e D The letter D specifies storing the data directly on disc as it is 
read from the input device, 


If this parameter is not included, BIS defaults‘to converting the input data 
to USASCII code for storage on the disc. 


6.3.3.3 ASSIGNMENTS, All assignments for input data under BIS must 
be made to SYSIN, BIS does not allow an assignment to the device that it is 
using. Programs may have more than one assignment to SYSIN,. Hach as- 
signment to SYSIN must have'a separate data deck preceded by a Data com- 
mand, The input data sets must be organized in the same order as their 
respective assignments, The first assignment to SYSIN in the JCS reads 
the first data set, the second assignment reads the second data set, etc. 


6.3.4 END OF JOB COMMAND 


The End of Job command (/$) follows the last data input of the user program 
and precedes the next Job command in the input stream, This command re- 
sets BIS for the next job and signals the end of the current job, Ifa //DATA 
J. Data command occurred in the job, the End of Job command is the only 
command that terminates data input. 
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6.4 BATCH OUTPUT SPOOLER (BOS) 


The BOS subsystem allows the user program to store output data on a high 
speed disc file during program execution. The subsystem then retrieves 
the data from the disc when the program is complete and writes the data on 
the designated output device. This output spooling feature can be used only 
if a System Output Queue (SOQ) file is installed on the system disc, The 
operating system verifies the existence of SOQ at each initial program load- 
ing (IPL). If SOQ is available, then any job may use the output spooling 
feature by assigning the output LUN to SYSOUT. All data written to 
SYSOUT is stored on the disc until the job string terminates, At that time 
if BOS is running and not busy, it begins to output the data to the assigned 
device, If BOS is not running, it will print out the data as soon as it is ac- 
tivated with the Job and Run commands, 


A job step may assign up to 26 LUNs to SYSOUT; however, the total number 
of LUNs assigned to SYSOUT in a job string is also limited to 26. When the 
data is spooled, it is separated on the disc according to LUN. Therefore, 
when the data is printed out following completion of the job, all data written 
to one LUN will be printed before any data is printed that was assigned to a 
different LUN. This system provides a degree of organization to the output 
data that cannot be achieved by assigning multiple LUNs to the same output 
device directly. In that case the data is printed chronologically as produced 
by the program. When the data is spooled, it can be divided into functional 
groups. 


6.5 BIR AND BIS EXAMPLES 


ig: f/{IOB JBNAME USERO1 
//RUN JSBKEY 
/$ 


The JOB command specifies a user job with jobname JBNAME under userid 
USERO1. The JSB file defaults to the standard system JSB file under DX980, 


The RUN command directs the system to retrieve the JSB with the name 
JSBKEY from the system JSB. 


2. //JOB JBNAME USERO1 FILE=(1, USER2, FILEX) 
//RUN JSBKEY 
/$ 


This example is identical to the previous example except that the JSB file is 
on disc unit number one with userid USER2 and filename FILEX. 


36. 11/508 JBNAME USERO1 
//RUN JSBKEY INPUT=CR2 FILE=(USER3, FILE2) 
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The keyword INPUT, established at JCL translation time, is overridden 
with device assignment CR2 representing card reader number two. CR2 is 


not the batch input peripheral. Keyword FILE is overridden to specify a 
specific disc file, 


4, ffIOB JBNAME USEROI1 
//RUN JSBKEY INPUT=SYSIN 
//DATA A 

data 
/$ 


Input is from the device assigned to the batch subsystem. If executed under 
BIS, data is converted to USASCII before spooling. BIR ignores the letter A 
in the Data command. 


5. //JOB JBNAME USERO1 
//RUN JSBKEY INPUT=CR1 
//DATA ,, A 

data 
/* 
/$ 


If CR1 is the system input device, BIS will not recognize this job. BIR ig- 
nores the letter A in the Data command. 


6. //JOB JBNAME — USERO1 
//RUN JSBo02 INPUT=SYSIN 
//DATA J,A 
data 
/* 


(listing continued on next text page) 
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data 


/$ 


For BIS the //DATA B card is spooled to disc as data because of the 'J' on 


the first //DATA card. 


BIR also ignores the //DATA Beard, because the 


first Data command suspended the system to wait for job termination (/$). 


6.6 BIS EXAMPLE 


//JOB 
//RUN 
//DATA A 


aes (a) 


/$ 


USERO1 
INPUT1=SYSIN 


INPUT2Z=SYSIN 


Data (a) will be with INPUT 1 and data (b) will be with INPUT 2, 


6-8 


Digital Systems Division - 


fe) 
WO 943005-9701 
SECTION VII 


INTERACTIVE TERMINAL SUBSYSTEM 


7.1 OVERVIEW 


The Interactive Terminal Subsystem (ITS) is that portion of DX980 that sup- 
ports interactive peripherals such as teleprinters and full duplex CRTs. In 
particular, a single version of ITS allows intermixing in any configuration of 


the following terminals: 
e Model 733 ASR 
e Model 733 KSR 
e Model 33 ASR 
® Full duplex 912 CRT 


The ITS and the terminal user communicate with input commands and output 
data or messages, The primary difference in the type of terminal, from the 
terminal user's viewpoint, is the amount of information that can be displayed. 
Teleprinters provide a single display line whereas CRTs provide up to 24 
display lines. | 


i ee | mn 
fe tel VIN 


Under ITS a full duplex CRT may be supported either as a single line ora 
multi-line device. Single line or multi-line support is determined when 
building the PDT for the CRT atIPL time. If single line mode is selected, 
the CRT functions exactly as ateleprinter. If multi-line support is specified, 
on-screen editing allows convenient operations not possible with a teleprint- 
er. inthis section references to a CRT applies specifically to a CRT oper- 
ating in multi-line mode. The CRT should be regarded as a teleprinter if 
single line mode is to be used. 


The ITS and the terminal user communicate using input commands and output 
data or messages, The first line of a CRT screen is dedicated to commands 
and error messages, The remainder of the screen displays data, The 
operator must enter requests toITS inline 1. Each request (command) to ITS 
must be followed by a period or have blanks (spaces) for all remaining posi- 
tions in line 1. Depending on the type of request, the operator may also 
enter lines of data prior to notifying ITS that the screenis ready for process-~- 
ing. The operator can modify data on the screen with the cursor positioning 
keys in conjunction with the data keys. Any data change is echoed to the 
screen and stored simultaneously in the CRT buffer in the main memory. 

The effective screen size for on-screen editing can be specified within a 
range of 2 to 24 lines. The size impacts the amount of main memory re- 
quired to support the terminal since each terminal must have a main memory 
buffer of 40 words per display line. When the operator has completed the 
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message on the screen, he transmits the message to the system by pressing 
carriage return (CR). 


72.1.2 TELEPRINTERS 


Communication between the ITS and a teleprinter is in a one-line format. 
Each input line must be entered completely before notifying 1TS to accept 

the input. ITS responds with data one line ata time. The operator keys in 
a request to ITS at the terminal and terminates it by depressing carriage re- 
turn (CR). If terminal data is required to complete the request, ITS returns 
control to the terminal and rings the bell, At that time the user enters a 
data line and presses CR. This procedure continues until the request is sat- 
isfied. Mistakes made during command or data entry can be corrected by 
pressing CRTL H repeatedly to backspace until the carriage is positioned 
over the character inerror. Starting at that point, the remainder of the line 
can be reentered correctly. When the operator presses the first reentry key, 
the DX 980 terminal handler issues a line feed before echoing the character. 
Thus, the corrected data appears immediately below the original data, If 
this technique is employed several times, the data line resembles a stair- 
case, Pressing CTRL N displays the entire data line on a single line, If the 
line is uncorrectable, the terminal user can start over by pressing RUBOUT 
and reentering the line, 


721.3 ITS TERMINAL ASSIGNMENTS 


ITS runs as a privileged program and can be activated via the RUN command 
from the system console. (The system console can be any data terminal de- 
vice.) The terminal assignments for ITS are normally incorporated into the 
JCL sequence for ITS, but can be overridden in the Run command at submis- 
sion time by specification of Ti=<devnam>,. For this notation, i is in the 
range of 1 through the number.of terminals at the installation and <devnam> 
is the mnemonic representation for the subject terminal, Assignments may 
be made to the system console (SC) and to the dummy device (DUMMY). Any 
program, including ITS, can assign the system console as one of its devices, 
Thus it can serve a dual purpose both as a system console and as a user ter- 
minal, When assigned to a program, the console displays the message 
USER MODE to notify the operator that the console has switched modes, At 
that time the operator can use the console as any other terminal, Pressing 
CTRL O switches the console back to system mode. After completion of the 
system duties, the console can be switched back to user mode with CTRL U. 
Assigning a terminal to DUMMY is a useful technique for starting ITS when 
one of the normally active terminals is inoperative, This assignment affect- 
ively deletes the corresponding assignment in the original JCL sequence, 
The following sample entries illustrate initiation of ITS from the System Con- 
sole: 


(1) //RUNITS Start ITS with default assignments, The 
'//'' ig displayed in response to pressing 
the escape key (ESC), 
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(2) //RUNITS T1=SC Start ITS with an assignment to the sys- 
tem console in addition to the default as- 
signments to other terminals, Tl could 
have been given a default assignment of 
DUMMY in the expanded JCS which would 
require positive action for assignment to 
the system console, 


(3) //RUNITS T1=SC, Same as example (2) except that the ter- 
T3=DUMMY minal normally assigned to T3 is inop- 
erative. 


7.1.4 ITS MEMORY REQUIREMENTS 


The memory requirements of ITS vary depending upon the number of termi- 
nals, the type of terminals, and whether the terminals are going to use the 
Remote Job Entry capability of ITS. ITS requires approximately 6000 words 
of JAREA, plus 125 words of JAREA per (one-line) terminal and 150 words 
of JEA per terminal. If the terminal is a multi-line CRT, then 40 words per 
display line must be added to the JAREA. If the terminal is going to use the 
Remote Job Entry capability, then 500 words must be added to the JAREA 
and 350 words must be added to the JEA. 


7.1.5. REMOTE TERMINALS 


After ITS is activated, a read is issued to each assigned terminal, This 
command rings the terminal bell and activates the terminal for input. If the 
assigned terminal is connected through a telephone data set, the data set is 
conditioned so that the terminal is immediately activated when the telephone 
connection is made. The procedure for establishing communications between 
a telephone dataset and a terminal equipped with an acoustic coupler is as 
fallax 


TOitOwss 


1) Dial the assigned number and wait for the data set tone (a high pitch 
squeal), : | 


2) Plug the handset into the acoustic coupler (the acoustic coupler 
must have the Mode switch set on 'Full Duplex"; the terminal Mode 
switch must be set to ''Line''), 


3) Terminal is ready for use. 


7.1.6 LOGON 


When communication is established between ITS and a terminal, the termi- 
nal user must enter a Logon command to gain access to ITS facilities, The 
format of the Logon command is as follows: 


LOGON <userid> <acctno> 
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The Logon command converts a terminal from the inactive state to the ready 
state. When the terminal is in the ready state, all the services of ITS be- 
come available to the user, The notation <userid> and <acctno> correspond 
to user identification and account number respectively. Depending on the 
installation, a future enhancement to ITS will use three parameters for val- 
idation against a file of acceptable combinations and recording along with the 
elapsed time of an ITS session for accounting purposes, The present version 
of ITS requires them for syntactic validation. The <userid> field is limited 
to six characters, the first of which must be alphabetic, The <acctno> field 
is a positive integer that must be less than 32, 768. All ITS command op- 
erands may be separated by a single comma, one or more blanks, ora 
comma and one or more blanks, 


| 7.1.7 OTHER ITS COMMANDS 


After the Logon command has been validated, the message 'READY' is dis- 
played on the terminal, At this point the following commands are valid 
(brackets denote optional fields): 


@ LOGOFF 


e EDIT FILE=(<volume>, <fileid>, <filnam> [,< pswd>]) 
[LRECL=<lrchar>] 


e ENTER FILE=(<volume>, <fileid>, < filnam>[,<pswd>]) 
[LRECL=<lrchar>] [EXTEND] 


e JOB <jsname> <userid> [FILE=(<volume>,<fileid>, <filnamz[,< pswd>])] 
® RUN <jcsnam>... 

e STATUS [<jobnum>] | 

e DELETE FILE = (<volume>, < fileid>, < filnam>[,<pswd>]) 


The Edit and Enter commands gain access to the Interactive File Editor 
(IFE). The Job and Run commands enter the Remote Job Entry (RJE) facility. 
The Stat command accesses the Computer Status Display (CSD) facility. The 
Logoff command returns the terminal to the inactive state. 


7.2 INTERACTIVE FILE EDITOR 


The Interactive File Editor (IFE) is an integral part of the Interactive Ter- 
minal Subsystem (ITS), It supports teleprinters.and full duplex CRTs, IFE 
allows the user to display, insert, delete or replace records from the file, 

as well as create an entirely new file from the editing terminal. Two utility 
programs, BLDEDT and DXCOPY, construct the file for editing, and trans- 
fer the edited file back to the user file, Two editing commands, ENTER and 
EDIT, add or delete records from the file. Figure 7-1 illustrates the data 
transitions that may occur within the scope of file editing. IFE operates 

only on key indexed files. The file must be constructed such that the keys are 
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Figure 7-1, Interactive File Editor Transitions 


the record numbers and the data is the source text. The first record must 
have a key of ''l'"', the second record ''"'2"', etc.. Hither of two methods can 
create a file in this form. The first method is a utility program name 
BLDEDT, BLDEDT accepts input from a sequential access source and 
copies the input data into a key indexed file suitable for use by IFE, The 
second method is to use IFE to create a suitable edit file. The Enter com- 
mand causes IFE to create a new key indexed file and accept the new text 
from the user terminal record by record, Adding EXTEND to the Enter 
command causes IFE to add new input to an existing edit file. Once a suit- 
able edit file is created, IF E may be used to modify it by inserting, replac- 
ing, or deleting specified records, This is accomplished with an Edit com- 
mand, While editing, the record number keys in the Edit file become 
nonconsecutive due to deletions and record insertions without keys. The 
keys (or record numbers) may be cleaned up by recopying the file using the 
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BLDEDT utility. When editing is complete, the user may employ the 
DXCOPY utility with the 'NOKEYS" option to transcribe the key indexed file 
into a linked sequential file. However, in most cases the edited material may 
be left in the key indexed file. The Assembler, the Compiler and other pro- 
grams accept input from a key indexed file resulting from IFE. 


When using IFE the escape key (ESC) stops input, output, or processing and 
returns control to the terminal. 


The IFE command set can be separated into three basic catagories: file 
commands, edit commands, and state transition commands, Hach command 
is independent of the type of terminal (teleprinter or CRT) that originated 
the command, Special exceptions are noted as they are encountered in the 
following command descriptions, 


7.2.1 FILE COMMANDS 


The IFE File commands assign, create or extend files for use by the IFE, 


7.2.1.1 EDIT FILE, The Edit File command (EDIT FILE) directs IFE to 
assign an edit file to the requesting terminal for interactive file editing. 
The file must have been previously created by the Build Edit File (BLDEDT) 
program or by an Enter File command. The Edit File command is per- 
missable only when the terminal is in the Ready state. The format for the 
Edit File command is as follows. The interpretation of each parameter is 
identical to that specified in the JCL description in Section II of this manual. 
The default value for LRECL is 80 characters, 


EDIT FILE=(<volume>, <fileid>, <filnam>[,<pswd>]) [LRECL=<Ilrchar>] 


After IFE has processed the Edit File command, it converts the terminal to 
the Edit state and returns the first record(s) in the file to the terminal, At 
this point, the user may enter edit commands or state transition commands 
to control further processing. 


7.2.1.2 ENTER FILE. The Enter File command directs IFE to create a new 
file or extend an existing file using data from the terminal. The file is a key 
indexed file. If the file is being created by the Enter File command (EXTEND 
option not specified), then the maximum number of tracks allowed for the 

file is 25 which accommodates about 1200 lines of text. The access codes of a 
file created with the Enter File command are (Any, Any, Any, None) unless 
a password is specified in the command in which case the access codes are 
(Any, Pswd, Pswd, None). As each record is entered into the file, IFE as- 
signs a record number to it that can be used in subsequent editing sessions. 
Enter File generally used for manual entry of data as with key-to-disc sys- 
tems. Operation with this command is identical when using either a tele- 
printer or CRT as a terminal. Control returns to the terminal after each 
record is processed and awaits entry of the next record. For this command 
line 1 of a CRT contains data rather than commands. 
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The format for the Enter File command is as follows, The <fileid> param- 
eter must have been previously defined via the CATLOG utility from the sys- 
tem console. The<filnam> parameter may be new if the command creates a 
new file. Default value for LRECL is 80 characters and defines the line- 
width for the terminal, 


ENTER FILE=(<volume>, <fileid>, <filnam> [,<pswd>]) 
[LRECL=<lrchar>] [EXTEND] 


The Extend parameter of the Enter File command extends previously created 
files by adding records to the end. As each record is added, IFE assigns the 
next consecutive record number to it as with newly created files, 


After IFE has processed an Enter command, it returns to the user and 
awaits entry of data records, The length of each input record, keyed in at 
the terminal, is controlled by the carriage return (CR) on a teleprinter or 
number of characters per line ona CRT, The record is padded out with 
blanks if the record length is less than LRECL, and is truncated if record 
length is greater than LRECL. A zero length record (CR only) causes IFE to 
stop accepting records to putin the file, and IFE returns to the Ready state. 


7.2.1.3 DELETE FILE. The Delete File command directs IFE to delete a 
file. The file is deleted if the integrity code which ITS is running under 
allows the deletion. 


722.2 EDIT COMMANDS 


The basic format for all Edit commands plus the first two operands is as 
follows: 3 


{command} [RN=][+]M [, N] 


The braces,{ }, indicate a mandatory field containing the command or opera- 
tor. The brackets, [ ], indicate options. The parameter, M, is either an 
absolute or relative record number depending upon the presence or absence 
of a preceeding [RN=] field. The absolute record number indicator, [RN=], 
directs IFE to select record number M from the record numbers that were 
originally recorded in the edit file. Since the record numbers start at 1 and 
are all positive, a minus sign for M does not have a general interpretation 
for absolute record numbers. However, two special cases exist for starting 
in front of the first record in the file (Beginning of File or BOF), or after the 
last record (End of File or EOF). The two cases are: | 


RN=0 Positions file at BOF 
RN=- 1 Positions file at EOF 


Any other absolute record number for M must correspond to a record num- 
ber that exists in the file. If not, the message ''RECORD NOT FOUND" is 
displayed following the command, 


rere renner SS 
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If the [RN=] field is not used, then M specifies a relative record position, 
That is, it uses the current record position as a point of reference within 
the edit file to access other records, The current record is the first data 
line displayed on a CRT or the last data line that was printed on a teleprinter, 
Specification of relative record position within a command directs IFE to 
move forward (+) or backward (-) M records. If the sign field is not present, 
+ is assumed, The current record is defined as relative record number l, 
the next record is record 2, etc. If the sign field specifies.a minus number, 
-~1l refers to the record immediately preceeding the current record, -2 to the 
record preceeding -1, etc. If 0 is specified as a relative record number, 
IFE converts it to +1. The one exception to this rule is for the Insert Record 
[ command for CRTs. See examples for that command. The parameter [N]| 
specifies the number of records to be processed. Processing occurs after 
the new file position has been established. If not specified, [N] defaults to l. 
The following examples illustrate the use of the M parameter and its associ- 
ated fields: 


e RN=1 Position at record number 1 in the edit file 


e RN=-3 Error: An edit file cannot contain a record number 
of -3 
e +1 Position at the current record: Ona teleprinter this 


specifies the last record printed, Ona CRT it speci- 
fies the first data line displayed (the first data line is 
actually line 2 on the screen, since line 1 is reserved 
for commands) 


e 1 Same as +l 


e -3 Position at the record that is three records before 
the current record, 


e RN=5, 2 Position at record number 5, then process two records, 


e 3, 1 Position at the record that is two records beyond the 
current record, then process one record 


e 3 Same as 3, l 


7.2.2.1 FIND RECORD: F[RN=][+]M. This command establishes a new 
current record and displays it at the terminal. If the terminal is a CRT, it 
fills the screen with records from the file starting at the new current record, 


7.2.2.2 REPLACE RECORD: R[RN=][+]M[,N]. This command establishes 
a new current record and replaces N records in the file with new records 
entered from the terminal. If the new replacement record has a pound sign 
(#) in column 1, it deletes the corresponding file record but does not re- 
place it with a new record. This character allows simultaneous deleting and 
modifying of replacement records. After the replacement process is com- 
plete, the record immediately following the last record replaced becomes the 
current record. 
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When this command is entered from a teleprinter, IFE returns control to the 
keyboard to accept N records (one at atime). Each time a record is entered, 
IFE deletes the corresponding record from the file and, unless a # is in 
column 1, replaces the old record with the new replacement record, as en- 
tered. If a null length record is transmitted (user enters only a carriage re- 
turn), then IFE terminates the replacement process and returns control to 
the keyboard to accept a new command. The Replace command has a slightly 
different interpretation when entered from a CRT. The records displayed on 
the screen become the replacement records even if they originally came from 
the file. This feature allows multiline editing from aCRT. The records 
displayed on the screen by any previous command can be modified on the 
screen and then used as replacements for the corresponding records in the 
file. Since the new replacement records come from the screen image, this 
command should not be used immediately following a List command which 
displays information other than just the records from the file. 


The absolute record number option, [RN=], is not valid from a CRT. 


The following examples illustrate the use of this command: 


e R1,3 Replace the current record and the two successive 
records. When entered from a CRT, the replacement 
records come from data lines 1, 2, and 3; when entered 
from a teleprinter, control returns to the terminai 
three times to accept three replacement records. On 
any type of terminal, a replacement record with # in 
column 1 deletes the corresponding file record and 
does not add the replacement record. 


e R. RN=I,3 Same as R 1,3 except that the records are the file rec- 
ord with record number i and the two successive file 
records. This command is not valid from a CRT. 


@ R 5,4 Replace the file record which is 4 records beyond the 
current record and the three following records. When 
entered from a CRT, the replacement records come 
from data lines 5, 6, 7, and 8; when entered from a 
teleprinter, control returns to the terminal four times 
to accept four replacement records. 


7.2.2.3 INSERT RECORD: I[RN=][+]M[,N]. This command establishes 
a new position and inserts N records following the new current record, The 
insertions can be terminated short of N records from a teleprinter by trans- 
mitting a null line. After processing is complete for the Insert Records 
command, control returns to a teleprinter with the print head in position one 
and the bell rings. When executed ona CRT, the displayed data opens at the 
insertion point to make room for inserting records. A# appears in column 
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one of each insertion record and the remainder of the record contains blanks, 
Insertion of records from a CRT is accomplished with a user entered 
Replace Record command after the new records have been keyed into the data 
lines that were opened for insertion, Each # must be eliminated before exe- 
cuting the Replace Record command, or the record will not be inserted, 

The absolute record number option is not valid froma CRT, The following 
examples illustrate the use of this command: 


e 11,3 Insert three records after the current record. When 
entered from a CRT, the current record is maintained 
on data line 1; data lines 2, 3, and 4 are blanked out 
except for a # in column 1. The record that was pre- 
viously displayed on data line 2 is in data line 5, data 
line 3 moves to data line 6, etc. The user-entered Re- 
place Record command that would normally follow this 
command is R 2,3. This accomplishes the actual in- 
sertion of the records (that the user has keyed into data 
lines 2,3,and 4) over the top of the lines which IFE dis- 
played with the # in column 1. When entered from a 
teleprinter, IFE returns control to the terminal three 
times to accept three insertion records. If the user 
enters a null line (enters only a carriage return), then 
the insertion process is terminated and IFE requests a 
new command. 


® ERN=5,3 Insert three records after record number 5. Not valid 
from a CRT. . 
e I RN=0, 2 Insert two records before the first record in the file. 


Not valid from a CRT. 


® 10,2 Insert two records after the current record. If entered 
from a CRT, data lines 1 and 2 are blanked out except 
for a # in column 1; and if the normal Replace Record 
command of R 1,2 is then entered, the records actually 
get inserted before the record that is considered the 
current record at the time this I 0,2 command is en- 
tered. In this way, records may be inserted before the 
first record in the file. 


e I -1,4 Insert four records after the record which precedes the 
current record. Not valid from a CRT. 


NOTE 


Since, ona CRT, this command is normally followed 
by a Replace Record command (which gets replacement 
records from the lines on the CRT exactly as they are 
displayed), the Insert Record command should not be 
used immediately following a List Record command. 


Change 1 7-10 Digital Systems Division 


fe) 
WO 943005-9701 


7.2.2.4 DELETE RECORD: D[RN=][+]M[,N]. This command finds a new 
current record and deletes N records starting with the new current record. 
After the appropriate records are deleted, the current record is then changed 
to be the record which follows the last deleted record. If records are deleted 
from a CRT screen, the displayed data closes to reflect the new contents of 
the edit file. The following examples illustrate the use of this command. 


e D1,2 Delete the current record and the record which follows 
it. When complete, display the new current record. 


e D RN=5, 3 Delete record number 5 and the following two records. 
e D RN=O, 4 Delete the first four records of the file. 


7.2.2.5 FIND STRING: FS[RN=][+]M [, N][C1:C2]/STRING/. This com- 
mand finds a new current record and searches N records for the subject 
string. The search for the string occurs between record columns Cl and 

C2. A slash within a string is denoted by a double slash, i.e. //=/. The 
Find String command is used in the same manner as Find Record except that 
IFE searches for an occurrence of the specified string within the record 
limits specified. If Cl and C2 are not specified, IFE searches each record 
between column 1 and LRECL. The limits Cl and C2 restrict the search to 
fewer than LRECL characters to eliminate unwanted matches and to decrease 
the search time. The following examples illustrate the use of this command: 


cords etarting 


en records starting 
with record number 1 for the string 
ABC, Establish the record contain- 
ing ABC as the new current record. 
If the string is not found, display 
"STRING NOT FOUND" message and 
maintain the original current record, 


e FS RN=10,50 1:10 /XY//Z/ Search through fifty records starting 
with record number 10 for the string 
XY/Z. Limit the search to record 
columns one through ten, 


7.2.2.6 REPLACE STRING: RS[RN=][+]M [, N][C1:C2]/STRING]/ 
/STRING2/. The Replace String command is identical to Find String except 
that STRING2 replaces the first occurrence of STRINGI. If the lengths of 
STRING1 and STRING2 are different, the insertion is made and the record 
length is adjusted accordingly. If the adjusted record length is greater than 
LRECL, the record is truncated to LRECL. If the new record length is 
shorter than LRECL, the record cioses and fills with blanks from the right. 
The use of consecutive slashes for STRING2 denotes a null string and deletes 


Change 1 7-11 Digital Systems Division. 


fe) 
WO 943005-9701 


STRINGI from the record, The following examples illustrate the use of this 
command: 


e RS 1,10 1:20 /ABC/ /DEF/ Search through 10 records starting 
with the current record for the 
string ABC, If ABC is found, sub- 
stitute the string DEF, otherwise 
display the message: ''STRING NOT 
FOUND", Limit the search to col- 
umns 1 through 20, 


e RS RN=I, 10 /ABC/ // Search through 10 records starting 
with record number 1 for the string 
ABC, If ABC is found, substitute 
a null string, close up the record 
and fill with blanks from the right. 
Otherwise, display the message 
"STRING NOT FOUND", 


7.2.2.7 REPLACE ALL STRINGS: RA[RN=][=]M [, N][C1:C2]/STRINGI / 
/STRING2/. Replace All Strings is identical to Replace String except that 
STRING2 replaces every occurrence of STRING] in the subject records, The 
current line is relocated to the record which follows the N lines searched. 


7.2.2.8 LIST RECORD: L[RN=][+]M[,N]. This command establishes a new 
current record and lists N records starting at that point. When the listing is 
complete, the current record remains at the first of the N records listed. 
The format of the listed records is as follows: 


1. If the record has a record number associated with it (the record was 
not inserted with an Insert Record command since the last time the 
file was built), then the record number (maximum of four digits) 
followed by a separator blank and the record are displayed. The rec- 
ord is truncated on the right to fit the display line. 


2. If the record has no associated record number, then five blanks and 
the record are displayed. Again, the record is truncated on the right 
to fit the display line. 


The List Record command is intended for low volume listing and is, there- 
fore, a relatively slow operation. For high volume listing, use the LSTEDT 
utility. 


7.2.3 STATE TRANSITION COMMANDS 


The state transition commands permissable in the edit state are Stop and 
Logoff. Stop returns the terminal to the ready state. Logoff returns the 
terminal to the inactive state. No state transition commands are permissible 
from the enter state. The only option available to change states is a null 
transmission which switches the state from enter to ready. 
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72.3 REMOTE JOB ENTRY 


The Remote Job Entry (RJE) facility in ITS provides interactive access to the 
job management system of DX980 through a user terminal, RJE accepts two 
basic commands: Job command and Run command, Both commands are 
valid from the ready state only. 


723.1 JOB COMMAND 


The Job command is optional when submitting a job via ITS. However, if it 
is specified, it must immediately precede a Run command, The format of 
the Job command from ITS is identical to that from any other system source, 
If the Job command is not supplied, the default values are as follows: 


e <jsname> - <userid> from Logon command 
@ <userid> - <userid> from Logon comand 
« <devnum> - 1, corresponds to DISC1 

e <fileid> - SYSTEM 

e <filnam> - SJCBFL, the system JCL file 


e <pswd>- none 


7.3.2 RUN COMMAND 


The Run command is required to start a job from ITS. The format of the 
Run command is identical to that from any other source. One additional op- 
tion available to ITS users is the assignment of the user's terminal to the 
job being started. This can be very useful if the terminal is located ata re- 
mote site. The user can assign the terminal through a device assignment of 
TERMIO, Expanded JCL sequences allow changing device assignments through 
the use of keywords, Any device keyword can be assigned to the psuedo- 
physical device name, TERMIO, ITS substitutes the true device name for 
TERMIO before submitting the job. For example the expanded JCL may 
specify: DEVICE:=INDEV,. In the Run command the user may state: 
INDEV=TERMIO, In this case ITS substitutes the true device name for 
TERMIO, That device name may be CRT3 or any other device previously 
assigned to TERMIO, The pseudo-physical device name, TERMIO, must be 
specified in the Run command, It may not be specified in the expanded JCL., 
As many device names as desired can be assigned to TERMIO and each name 
is converted to the subject terminal. When the jobis started, ITS releases 
the terminal until the job is complete. At that time ITS reacquires the ter- 
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minal and activates it for further communication, The following example 
illustrates the device assignment option of the Run command: 


RUN XA SRCDEV=DISC1, SRCFIL=(USERO1, MYPROG); 
LSTDEV=TERMIO, ERRDEV=TERMIO, OBJDEV=PTP1 


Run the assembler with input from a 
file with file name 'MYPROG' 
(possibly created and edited using 
IF E). Assign listings and error 
messages to my terminal (TERMIO) 
and assign the object output to the 
paper tape punch, 


7.4 COMPUTER STATUS DISPLAY 


The Computer Status Display facility in ITS determines system status either 
before or after submitting a job through the RJE facility, Entering the fol- 
lowing command at the terminal displays the status of all programs in the 
system: 


STATUS 


The statistics for all steps within a specific job can be displayed by entering 
the command in the following form: 


STATUS <jobnum> 


7.5 ITS ERROR MESSAGES. 
ITS error messages fall generally into three catagories. 


A. Messages of the form: 


ERROR NNNN where NNNN is a four digit error number. These 
error messages are given only by the Remote Job Entry and Com- 
puter Status Display facilities. The error numbers are passed to 
ITS by DX980 and are documented in Appendix A. 


B. The message: 
INSUFFICIENT MEMORY, TRY AGAIN LATER 


This message is given only by the Remote Job Entry and Computer 
Status Display facilities and indicates that there is not enough avail- 
able memory in the ITS area to perform the request. If several 
terminals are currently using ITS, then more memory may be avail- 
able later as operations for other terminals are completed. 
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C. IFE Error Messages: 


(1) . INVALID COMMAND 
(2) .DISC OFFLINE 

(3) . INVALID FILE TYPE 

(4) .INVALID ARGUMENT 

(5) .ARG COUNT ERROR 

(6) .ARG RANGE ERROR 

(7) .RECORD NOT FOUND 

(8) .STRING NOT FOUND 

(9) .STRING TOO LONG 

(10) .INSUFFICIENT MEMORY 
(11) . FILE ASSIGN ERROR 
(12) . FILE BUSY 

(13) . FILE FULL 

(14) .FILE READ ERROR 

(15) .FILE OPEN ERROR 

(16) . FILE 1/O ERROR 


In most cases the user can readily discover the problem causing the 
error and then reenter the command correctly to continue. However, 
messages (15) and (16) may be given in response to the user submis- 


sion of the EDIT or ENTER commands and if this occurs the user 
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or ENTER command. 
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SECTION VIII 
UTILITY PROGRAMS 


8.1 GENERAL 


A comprehensive set of programming support language processors and utility 
programs is available for use with the operating system. Sequences of ex- 
panded JCL supplied with a system reside on the system disc in the file ad- 
dressed as FILE=(1, SYSTEM, JCLSRC). Appendix B contains a sample listing 
of some expanded JCL sequences, When specified in a Run command, these 
standard JCL sequences perform the language processors and utilities, Some 
of these programs, such as the FORTRAN compiler, are not unique to the 
DX980 operating system. These programs are documented in separate man- 
uals, This section provides information concerning the use of these programs 
as they apply to the DX980 operating system, 


8.2 JCL TRANSLATOR (JCLTRN) 


The JCL translator is a utility program that runs in user memory (as opposed 
to running in memory that is allocated to the operating system). This pro- 
gram translates expanded JCL statements into an internal binary representa- 
tion for later processing. Input to the translator can be supplied from any of 
the standard 980 input devices (card reader, cassette, magnetic tape, disc 
files, etc.). Output from the translator is stored ona disc file for later sub- 
mission, Since the translator is a utility program, it can be invoked as any 
other user program by using abbreviated JCL form. The saved JCL sequence 
for the translator is stored on the system disc together with several other se- 
quences that are supplied with each DX980 installation. The name assigned 
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8.2.1 STANDARD JCL PROCEDURE 


The following JCL is a standard procedure for invoking the JCL translator 
(JCLTRN). 


+® CREATE JCL  ,COMMENT, "CREATE JCL PROCEDURE " 
/REPLACE JCL . CREATE JCL PROCEDURE . 
/EXEC OBJs(1,SYSTEM,/JCLTRN) MEM (398,7550,1880) PRIYS¢1, 15)? 


/ _ TIMEsel MEMESMEM PRTY3 PRI 
/ASSIGN 1 SC DEVICEr#0SRC FILEs#FSRC BUFFERS#! > SOURCE INPUT 
/ASSIGN 2 SC DEVICEtsDERR SHARE? sSERR ERROR MESSAGE 


/ASSIGN 3 SC DEVICEtsDLST FILEssFLST SHAREssSLST AUFFERS#1.SOURCE |.ISTING 
/ASSIGN 4 DISC} DEVICE:sD0BJ FILEs(SYSTEM,SJCBFL.AB)s 


/ PILEssFOBJ REPLACEssRoBs BUFFERSs2 INDEXEDs 

/ ACCESS®CANY,ANY*ANY/ANY) ACCESS2 8COBJ3 

/ ALLOCATE#(1,8,96,28) ALLOCATESsLOBJ KEYLENS6 - OBJECT OUT FILE 
7END 
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8.2.2 MEMORY PARTITION REQUIREMENTS 
The memory allocation parameters for the JCL translator are: 


MEM=(300, 7550, 650) 


8.2.3 LUN ASSIGNMENTS 
The LUN assignments required by the JCL translator are listed in table 8-1, 


| Table 8-1. JCLTRN Logical Unit Assignments 


Expanded JCL input Any sequential access input device 
file 


Error Message Normally assigned to DUMMY when 
input is from a Data Terminal; 
otherwise assigned to SYSOUT or 
LPl. 


JCL echo print 


Binary Format JCL output Key indexed file with key length of 
6 characters and a physical record 
length of 96 words. 


8.2.4 OPERATION 


Refer to Section II of this manual for a description of the JCL translator, 


8.2.5 ERROR CODES 


Refer to Appendix A of this manual for JCL error codes, 


8.2.6 SAMPLE INPUT 


Refer to Section II and Appendix B of this manual for sample input sequences. 


8.3 MASTER FILE DIRECTORY EDITOR (CATLOG) 


The CATLOG utility allows the operator to list, create, or delete users in 
the Master File Directory of any specified disc volume. 
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8.3.1 STANDARD JCL PROCEDURE 


The following JCL is a standard procedure for the Master File Directory 
Editor, CATLOG: 


«# CREATE CATLOG,COMMENT, "LIST, CREATE,OR DELETE USERS" 

/REPLACE CATLOG « LIST, CREATE, OR DELETE USERS . 

/EXEC OBJ8(1,SYSTEM»CATLOG) MEM®(300,4000,670) PRTY#(1,5)) 

/ PRIV TIMEZ=1 PRTYSSPRI 7 

/ASSIGN @ SC DEVICEssDCON SHARE? #SCON . CONTROL 
/ASSIGN 6 SC ‘DEVICE sDLST FILEs#FLST SHAREt*SLST BUFFERS#1.USER LISTING 
END 


8.3.2 MEMORY PARTITION REQUIREMENTS 


The job area required to run CATLOG must only be large enough to contain 
the load module since CATLOG requires no work space, Sufficient job area 
is 4000 words; sufficient job extension area is 670 words. 


8.3.3 LUN ASSIGNMENTS 
The logical unit assignments needed for CATLOG are listed in table 8-2, 


Table 8-2, CATLOG Logical Unit Assignments 


LUN Description Comments 


Message Control Any input/output device 


Listing of Users Any printing device 


8.3.4 OPERATION 


The Master File Directory Editor, CATLOG, is a single task program that 
runs under DX980 in the privileged mode. Since it accesses portions of the 
system which are inaccessible to the user, the CATLOG modules must be 
linked with the system external definition file (SYSTEM, DXEXTD). 


The program, CATLOG, should be run from the system console only. It 
first types the message: 


ENTER COMMAND TYPE--LIST, CREATE, DELETE-- 


on the message and control device (LUN 0) which is usually assigned to the 
system console, The operator then responds by entering the first letter of 
any of the three commands (i.e. L, C or D), followed by a carriage return to 
select a list, create, or delete user operation, respectively. CATLOG then 
requests the disc volume identification by printing to LUN 0: 


DISC VOLUME ID = 
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The user responds by entering a number between 1 and 20 followed by a car- 
riage return, This number selects the disc pack contained in the disc drive 
with that number. The default for this input parameter is disc drive 1 and 
can be invoked by entering carriage return without selecting a number. 


Beyond this point, CATLOG's response is dependent on the function (list, 
create, or delete) selected, Table 8-3 summarizes the input/output of 
CATLOG for the three functions, The three functions are described sep- 
arately in the next three paragraphs, 


8.3.4.1 LIST, If the user responds with an L input to select the list users 
function, the utility prints on LUN 6 an alphabetically ordered list of all 
users on the disc volume selected, The utility also prints the date and time 
of request. 


CATLOG provides the following information for each user: 
® User ID - the name of the user associated with the directory, 


e Integrity code - A three-position code that defines allowed operation 
to the user directory for three separate operations. The output 
format is X, X, X, for read, write, delete operations respectively. 
The letter X represents either N, C, or A (NONE, CREAT, ANY, 
the file level integrity codes used as input to the JCL translator/ 
interpreter). Table 8-4 provides an interpretation of the three 
integrity codes as a function of operation at the user level. 


e Current user directory size - the number of tracks currently as- 
signed to the user directory. 


e Maximum user directory size - the maximum number of tracks that 
can be assigned to the user directory. 


In addition to the above tabular data for each user on the disc volume, 
CATLOG prints the following information for the entire disc volume, 


e Number of users 
e Number of tracks available 
e Number of tracks used 
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Table 8-3, CATLOG User Interaction 


a a 


User Response 


LIST CREATE 


CONSOLE OUTPUT 


DELETE 


ENTER COMMAND TYPE--LIST, CREATE, DELETE-- 


$< 


DISC VOLUME ID = any disc drive number 1 through 20 


(default = 1) 
aa Sie A a Si Se ee rt 
A 1 to 6 character alphanumeric 
name of the user ID. (no default) 


USER ID = 


I 


INTEGRITY CODE 4 alphabetic charac- 


ters, separated by 

commas, designate 

the access codes for 
read, write, delete 
and execute acces- 
ses (default = A, A, 
A, A)* 


MAXIMUM DIRECTORY SIZE = 


Number of tracks to 
designate maximum 
size of user direc- 

tory (default = 1) 


A SS ee ee 


*N = None 
C = Creator 
P = Password 
A = Any 
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Table 8-4, User ID Integrity Codes 


Operation 


Integrity 


Gone Write 


N, X, X no X, N, X no one can| X, X, N no one can de- 
one can access| define new files lete or replace files 

the files under| under the user ID under the user ID 

the user ID 


G, G, C ise e. Goma ame @ [> 


only the cre- only the creater only the creator can de- 
ator can ac- can define new files | lete or replace files 
cess the files | under the user ID under the user ID 

under the 

user ID 


A, X, X © X, A, X Dishes ee 

any one can any one can define any one can delete or 
access the new files under the replace files under the 
files under user ID user ID 

the user ID 


[> Creator - that user whose < userid > parameter in the JOB 
command matches the <userid> of the directory. 


8.3.4.2 CREATE, Ifthe user responds with a C input to select the create 
user function, the utility requests the following additional information (in 
addition to the disc volume ID): 


e User ID - A 1 to 6 character alphanumeric name of the user ID to 
be created, followed by a carriage return, 


e Integrity code - A 3-position code that defines allowed operation to 
the user directory for three separate operations, 
The input format is X, X, X for read, write, delete 
operations, respectively. The letter X is N, C, or 
A. See table 8-4 for an interpretation of the three 
integrity codes as a function of operation at the 
user level, The default for this input parameter is 
A,A,A for unlimited user operations, 
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e Maximum user size - A decimal number that designates the maxi- 
mum number of tracks to be assigned to the 
user directory. The default is 1 track. 


The program then creates the designated user by entering a user file direc- 
tory (UFD) keyed on the user ID into the master file directory, 


8.3.4.3 DELETE, If the user responds with a D input to select the delete 
user function, CATLOG checks for other jobs running in the system before 
continuing. If other jobs are running, an error message is printed to LUN 0 
and the CATLOG job is terminated. If the job does not terminate at this 
point, the utility requests (in addition to the disc volume ID) only the user ID 
to be deleted. The utility then deletes the user file directory (UFD) from the 
master file directory as well as all files created under that user ID. The 
CATLOG delete function should not be used to delete individual files under a 
user, but only to delete an entire user directory, including all files residing 
within that directory. The delete function of CATLOG may be used only when 
no other jobs are-in the system. 


8.3.5 ERROR CODES 


Table 8-5 lists the possible error/termination message printed by CATLOG 


Those that are possible only when a specific function is requested 
gly in the table 


e 
Ly 244 VALS CONLG SO 


Table 8-5, CATLOG Error Messages 


Current 
Function 


Meaning 


Message 


NORMAL TERMINATION Process performed cor- 
rectly no errors 

ILLEGAL COMMAND | First character of Com- 
mand input not an L, C, 
or D, 

TOO MANY JOBS IN THE SYSTEM D Delete command-cannot 


be run if there are other 
jobs running under 
DX980, 


ILLEGAL INTEGRITY CODE C Create command-user 
integrity code is not of 
format X, X, X where X 
is A, C,N. 


BAD DATA Numerical input not a 
valid decimal integer. 
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Table 8-5, CATLOG Error Messages (Continued) 


Current 


Message . 
g Function 


Meaning 


ILLEGAL DEVICE ID Device ID not in the 
Physical Device Table 
chain, 


DISC OFFLINE Disc is not enabled, 


PREV, DEFINED USER ID Create command-user 


ID already defined in 
the Master File Direc- 
tory. 


IDLEGAL USER -ID Delete command-user 


ID not found in the 
Master File Directory, 


USER ID MISSING Delete command-user 
directory file control 
block is not in the file, 


8.4 LIST USER FILE DIRECTORY (CATFIL) 


The CATFIL utility lists all files in the User File Directory for a specified 
<userid>, It also tabulates all pertinent information for each file. 


8.4.1 STANDARD JCL PROCEDURE 


The following JCL is a standard procedure for List User File Directory 


CATFIL: 
e* CREATE CATFIL,COMMENT. "LIST FILES UNDER A USER " 
/REPLACE CATFIL . LIST FILES UNDER A USER . 
JEXEC OBJs(1,S8YSTEM,CATFIL) MEM®(300,1858,670) PRIY8(1,5)3 
/ PRIV TIMESe1 PRTY?sPRY 
/ASSIGN @6 SC DEVICE:sDCON SHaREssSCON « CONTROL 
/ASSIGN 6 SC DEVICErsD0LST FILEssFLST SHARESsSI.ST BUFFERS#!.FILE LISTING 
7END 


8.4.2 MEMORY PARTITION REQUIREMENTS 


The job area required to run CATFIL must only be large enough to contain 
the load module since CATFIL requires no work space. Sufficient job area 
is 1850 words; sufficient job extension area is 670 words, 
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8.4.3 LUN ASSIGNMENTS 
The logical unit assignments needed for CATFIL are listed in table 8-6. 


Table 8-6. CATFIL Logical Unit Assignments 


Any input/output device 


Message and control 


6 Listing of files Any printing device or a file 


8.4.4 OPERATION 


CATFIL is a single task program that runs under DX980 in the privileged 
mode, Since it accesses portions of the system that are user inaccessible, 
it is necessary to link the CATFIL modules with the system external defini- 
tion file (SYSTEM, DXEXTD). 


The program, CATFIL, may be run from the system console or from the 
Batch Processing or Interactive Terminal Subsystems, When run from other 
than the system console the printout of the password for each file is sup- 
pressed, CATFIL types the following request on the message and control 
device (LUN 0): | 


USERID = 


The user responds with a 1 to 6 character identifier for the <userid> of the 
User File Directory to be listed, The utility then requests the volume num- 
ber (i.e, disc drive number) of the disc containing the User File Directory: 


DISC VOLUME ID = 


The user may respond by entering a specific integer value from 1 to 20 fol- 
lowed by a carriage return, or by invoking the default volume number of 1 
by selecting carriage return only. The utility then prints the date and time 
of request, and an alphabetically ordered list of all files within the selected 
User File Directory on LUN 6, The information provided by CATFIL for 
each file is as follows: 


e File Name - 1 to 6 alphanumeric characters identifying the file. 


e Disc Address - hexadecimal track address of initial track allocated 
to the file. 

e Password - 0 to 4 alphanumeric characters identifying the password 
for the file, If CATFIL has been invoked from other than the sys- 
tem console any passwords for files will be replaced with asterisks. 
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e Integrity code - four alphabetic file access codes in the form Xy: 
Xo Xo xy where 
x = read access code 
Xo = write access code 
X32 = delete access code 


X4 = execute access code 


In general X; can be: 


= No one can access the file, 


= The creator can access the file, 


Or ZS 


= The user having the correct password can access the file, 
A = Anyone can access the file. 


@ Current File Size = Number of tracks currently allocated to the file. 
If the file is completely full, this current file size exceeds the maxi- 
mum file size by 1 track for linked sequential and key indexed files 
only. 


e Maximum File Size - Maximum number of tracks that may be allo- 
cated to the file. One additional track may be allocated to a file at 
the time the file becomes full. 


e File Type - Indicates the type of file from the three supported types; 
linked sequential, relative record, and key indexed, 


e Logical Record/Key Length - Number of characters in the fixed 
length logical record for relative record files. Number of charac- 
ters in the key for key indexed files. 


e Physical Record Length - Number of words in the physical record 
for any type file. This establishes the length of the system acces- 
sible buffers used for input/output to the file. 


In addition to this tabular data for each file within the User File Directory, 
CATFIL prints the following information for the specified User ID: 


e The number of files 


e The number of tracks allocated 


8.4.5 ERROR CODES 


The possible error/termination messages printed by CATFIL to LUN 0 are 
listed in table 8-7, 
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Table 8-7. CATFIL Termination Messages 


NORMAL TERMINATION 


Process executed correctly 


INVALID DEVICE ID Device ID is not in the Physical Device 
Table List 
ILLEGAL USER ID On INPUT from the CONSOLE-User ID is 


a T 
greater than 6 characters OR first charac- 
ter is not a letter 


DISC OFF LINE 


BAD NUM Input from the console - not a valid deci- 


mal integer 


UNDEFINED USER ID User ID not found in the Master File Direc- 


tory 


8.5 DxX980 OVERLAY LINK EDITOR (DXOLE) 


The DX980 Overlay Link Editor (DXOLE) must be used to format input object 
records into a load module for execution under DX980, Three program 
structures are aliowed: 


1, A memory resident program with no overlays 
2. An overlay structure defined at link edit time (preplanned overlay) 


3. Anoverlay structure that is dynamic and can change during execu- 
tion (unplanned overlay). 


DXOLE functions in three different modes to allow maximum flexibility to 
the user. These modes are: 


e Compact Mode - The Compact mode combines object modules to 
create new object modules. All references for defined symbols be- 
tween the object modules are resolved, All references to entry 
points not found in the object modules are left unresolved, The ob- 
ject module produced is relinkable. The new object module defines 
all the entry points defined in the linked modules as entry points 
and contains references to the unresolved entry points, 


e Normal Mode - The Normal mode combines one or more object 
modules to create a load module for execution, This mode is the 
default mode for the link editor, The load module created may or 
may not contain an overlay structure, depending upon parameters 
supplied by the user. The Normal mode can produce an External 
Definition File, This file contains the symbol names and addresses 
of the entry points defined in the root segment of the created load 
module, 
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e Subsystem Mode - The Subsystem mode combines one or more ob- 
ject modules to create a load module containing a subsystem for 
execution, This load module may contain a preplanned overlay, but 
cannot contain an unplanned overlay. Subsystems execute as abso- 
lute programs. Therefore, they can address into the root segment 
of the operating system. In the Subsystem mode an External Defini- 
tion File produced during a previous Normal mode link of the oper- 
ating system resolves external references, 


8.5.1 STANDARD JCL PROCEDURE 
The following JCL listing is a standard procedure for DXOLE: 


/REPLACE DXOLE . LINK EDYTOR 4 : 

EXEC OBJ8(1,SYSTEM,/OXOLE) MEM®(300,12008,2000) PRTY#(1.,15)3 

/ TIMEs=] MEM39MEM PRTY3sPRI TIMESsTIM ee ; 
ASSIGN 2 DUMMY DEVICEs#D0B1 FILEs*F08! BUFFERS=2 » ALT 1 OBJECT IN 
/ASSIGN 2 DUMMY DEVICE:s00B82 FILE:#FOB2 BUFFERSs2 > ALT 2 OBJECT _IN 
/ASSIGN § DISC1 DEVICE:eDIN FILEssFIN BUFFERS#1 > PRIMARY INPUT/CON 
/ASSIGN 6 SC DEVICE s#DLST . > LOADMAP LIST/ERR 
/ASS{GN 7 DUMMY DEVICE:s008J FILE:sFOBJ BUFFERS®! . COMPACT OBJ OUT 
/ASSIGN 8 DISC1 DEVICEssDLM FILE:sFLM REPLACEs®RLMs 

/ BUFFERS#i RELREC ACCESSa(ANY,CREAT»CREAT»ANY?? 

/ ACCESSseCLM ALLOCATE®#(1.0,3201) ALLOCATES! LM? . a 

/ LRECL 864 ~ LOAD MOO OUTPUT 
/ASSIGN 9 DISC’ FILE®(SYSTEM.USRFTN) DEVICE: =sDL183 ; fats = och 

/ FILEsePLIB BUFFERS#2 . . LIBRARY FILE 
/ASSIGN 1@ DISC! FILE#(TEMP.SCRL) NEW BUFFERS#1 LINKSFQs 

/ ACCESS=(ANY,ANY,ANY ANY) ALLOCATES(10,308,256230) , LINKSEQ SCRATCH. 


ASSIGN 11 OISC1 FILES(SYSTEM.DXEXTD) FILES*FEXT BUFFERS#1 - SYS EXT DEFS OPT 
/ASSTGN {3 DISC1 FILEs(TEMP.SCRR) NEW BUFFERSs{ RELREC3 


/ ACCESS=(ANY,ANY/ANYSANY) ALLOCATES(10,300,128,10))) a 
ae LRECLsi9a - RELREcC SCRATCH 
, | 


8.5.2 MEMORY PARTITION REQUIREMENTS 


DXOLE memory requirements. for linking an average program are defined 
with the following expression: 


MEM=(300, 12000, 2000) 
DXOLE is an overlay program with variable memory requirements. 


DXOLE requires 7950 words of program space plus a 2000 word Job Exten- 

sion Area (<jearea>). A variable amount of table space is required depend- 

ing upon the number of references, definitions, overlays, and identifications 
in the input object decks. The memory requirements do not depend upon the 
size of the load module being produced, The following guidelines aid in de- 

termining the size of the variable tables: 


e 17 words per overlay to be generated 
e 12 words per DEF 


e 12 words for the first REF and 3 words for each subsequent REF 
to a label | | 
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e 9 words per common definition 
e 3 words per common reference 
e 13 words per object module 


e 5 words per OBJNAM parameter (unplanned overlays) 


e 3 words per Library LUN specified 


Q kf 2 T TTNT A TCIUNIR A TONID 
9.93829 AsUIN ASSIGNMEN rs 


Table 8-8 provides a summary of the LUN assignment requirements for 
DXOLE as a function of mode. As can be seen in the table, not all assign- 
ments are required for each mode, In addition to these standard LUN's any 
other LUN's can be assigned to DXOLE and accessed by means of Include, 
Search, and Library commands, 


8.5.4 OPERATION 


DXOLE allows two different overlay structures, preplanned and unplanned, 
Each structure has advantages and the user should decide which, if any, 
overlay technique to use. The control cards describe the program structure 
to DXOLE, 


8.5.4.1 PREPLANNED OVERLAYS, A program that is link edited in the 
Normal mode or Subsystem mode with the overlay (OVLY) option is called a 
preplanned overlay, The programmer describes the overlay structures for 
the program with the Root and Segment control cards, During execution ofa 
preplanned overlay structure, a Runtime Overlay Manager (OLM$#$) loads 
all overlays into memory. The link editor includes the overlay manager as 
part of the root segment, The Runtime Overlay Manager determines the re- 
lationships between overlay segments and the load addresses of the overlays 
by inspecting overlay transfer vectors built by the link editor, These run- 
time vectors, called the Overlay Segment Vector (OSV$#$) and Overlay 
Transfer Vector (OTV$#$), are also included in the root segment of the load 
module produced. 


The link editor uses the call-by-name technique for loading overlays ina 
preplanned overlay structure, The user program references the name of 
the definition resolved in the next level of the overlay, The overlay manager 
then loads the overlay and transfers control to the desired entry point, The 
overlay is only loaded when necessary. Following calls to the same overlay 
will not reload the overlay unless it has been replaced in memory by another 
overlay at the same overlay level, The overlay manager uses the S and X 
registers and does not preserve their values, The calling program must 
save these registers if the contents should not be destroyed, On the pre- 
planned overlay load map all forward references in the overlay are identified 
by the message '**OTV**'', The address associated with the reference on 
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NOTES: 


Table 8-8, 


Description 


Primary input 


Diagnostics and Memory Maps 


Object Module Output 


Load Module Output File 


Subroutine Library File 


Intermediate Scratch File 


External Definition Input File 


External Definition Output File 


Intermediate Scratch File 


Alternate Input 


Alternate Library File 


DXOLE Logical Unit Assignment 


Mode a 
| Normal | | Subsystem | 


Comments 


Sequential input device/file with 80 
character record length. Input control 
commands and object modules may be 
intermixed, 


Sequential output device/file with 80 
character record length. 


Sequential output device/file with 80 
character record length. 


Relative record file with 64 character 
record length, 


Dummy or key indexed file with 80 
character record length and 8 character 
key length. This file should be built 
using the Library Builder (LIBBLD) 
utility. 


Rewindable device or linked sequential 
file with 80 character record length, 


Linked sequential file with 8 character 
record length. This file contains the 
external definition table for the cur- 
rently running versions of the operating 
system produced under the Normal 
mode during a previous link edit of the 
operating system, 


Linked sequential file with 8 character 
record length. 


Relative record file with i character 
record length, 


Accessed with Include control command 


Accessed with Library control command 
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1 The External Definition Output File is not required for any mode, but is optional for the Normal mode, It is assigned 
only when an external definition table is to be produced. 


2 Optional alternate LUN. 
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the load map points to a table entry that the Overlay Manager will use to load 
the overlay. External references in the overlays are resolved in the follow- 
ing manner, . 


1) A reference to a label defined in the same overlay is resolved as the 
address of the label, 


2) <A reference to a label defined in a lower level overlay which is in 
the path of this overlay is resolved as the address of the label, 


3) <A reference to a label which is defined in the next overlay level is 
resolved as an address in the Overlay Transfer Vector, At runtime 
the entries in the Overlay Transfer Vector are managed by the 
Overlay Manager. When an overlay is currently in memory, the 
Overlay Transfer Vector causes control to pass directly to the over- 
lay. When an overlay is not in memory, the Overlay Transfer Vec- 
tor causes control to transfer to the Overlay Manager to load the 
overlay and then transfer control to the overlay, Forward data ref- 
erences may not be used, 


4) No forward references can be made to definitions more than one 
overlay level away. Any such reference is marked as undefined 
("'**U N- DEF **'' on the load map) and is assigned the absolute value 
FFFF 1¢- 


8.5.4.2 UNPLANNED OVERLAYS, An unplanned overlay is a program that 
is link edited in the Normal mode with the No Overlay (NOVLY) option and that 
defines overlays with Object control cards, The programmer describes the 
overlay structure with the Root and Object control cards, The overlay is 
called an unplanned overlay since the location of the overlay in memory is 

not specified when the link edit is performed. During execution the overlay 

is loaded using the load and relocate SVC, DXOLE does not include a Run- 
time Overlay Manager as part of the load module. The second parameter of 
the Object control card defines a name, This name can be an external ref- 
erence in the root or any overlay, and is resolved as the overlay number, 

The link editor does not resolve any other references between overlays, The 
order for resolving external references is: 


1) A reference to a label defined in the same overlay is resolved as 
the address of the label, 


2) A reference in an overlay to a label defined in the root is resolved 
as the address of the label. 


Ud 


A reference having the same name as the second parameter of the 
Object control card is resolved as the overlay number, These items 
are identified on the load map by the message, **MIP**, 
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4) No references can be made to definitions in any overlay. Any such 
reference is unresolved and is flagged as '**UN-DEF**'' on the load 
map. Hexadecimal FFFF is assigned as the value of the unresolved 
reference, 


8.5.4.3 CONTROL CARDS. Figure 8-1 illustrates the format of the three 
DXOLE control cards (Type 1, Type Il and Type III). Control cards must 
have a blank in column one, a card name starting in column two and one or 
more blanks preceding the first argument. Commas separate each argument. 
The argument list cannot contain imbedded blanks. Arguments may be speci- 
fied up to and including column 72. Comments can be placed on the control 
cards following the first blank after the last argument specified. These con- 
trol cards relate three kinds of information to the link editor: 


e The mode of the link edit to produce either a relinkable object mod- 
ule or a load module. 


@ The relationship between the memory image phases in the load mod- 
ule, 


e The input LUNs for the object modules to be included with each 
Type II control card. 


Table 8-9 indicates the Type II and Type III cards that are valid for each 
Type I control card and its options, Figure 8-2 shows a sample control deck 
and a block diagram of the associated program, 


TYPEI: 
PAGE @Z— 
a) COMPACT Es =D | 
NEXTD @| [NOVLY @® PAGE @ 
PEE SE ERS EN eS SO = , MAXSEG= 
Oi OR ES Kaus: | : po eal 2) [ "2 9] E PAGE 
NOVLY @ : . PAGE @_ 
c) SUBSYSTEM [Rover Ol] maxewr-a, 2| . MAXSEG=n, 9| Ee axe 
TYPE Il:) 
OBJECT IDTNAM, OBJNAM [, HEXCON] 
ROOT IDTNAM 
SEGMENT LEVEL 
TYPE Il: 
SEARCH 1, 2(Keyl, Key2,...,Key_),3 
INCLUDE 1,2(Keyl,Key2,..., Key), 3 
LIBRARY 20,21,22 


@® Default option 
@ Default = 44 
@ Default = 22 


Figure 8-1, Control Card Formats 
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Type I 
Control Card 


Compact 


Normal 
No Overlay 


Normal 
With Overlay 


Subsystem 
No Overlay 


Subsystem 
With Overlay 


Note: 


1. Required card 


Table 8-9. DXOLE Control Card Sequence and Options 


Valid Type II Cards 


Root 


Valid Type III Cards 


Library 
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EVE CARD 
ROOT SEGMENT pone | LEVEL o TYPE 


IDT1 
Tn or OBJECT DECK 
1706 
INCLUDE 16(SO) 
LIBRARY 17,18 
1 SEGMENT 1 
1 INCLUDE 16(S1) 
! SEGMENT 2 
I 


; 1700 IOTX 
LEVEL 1 1706 
SEARCH 18(KEY1) 
SEGMENT 3 


i 
mi INCLUDE 16(S3) 
tf SEGMENT 3 

| 1700 


1706 
LIBRARY 17 
INCLUDE 18(S5 S4 
SEGMENT 1 gS) WeKSS2) 
1700 


1706 

SEGMENT 2 

INCLUDE 18(S7) 

INCLUDE 16(S8) 
MENT 3 

INCLUDE 9) (QQCOSINE) 


SEARCH 
SEGMENT 2 


ee 
1706 


/* 


(4)130110 


MIP 7 MIP 10 
ane | eta | ea ce ce 


Figure 8-2, Overlay Structure and Control Deck 


Type I Control Cards, A Typel control cardis optional. If present it must 
be the first control card, The Compact card directs DXOLE to link object 
decks together to create new relinkable object decks. The only valid param- 
eter for this mode is to specify the load map use page ejects or double spac- 
ing (PAGE and NOPAGE, respectively). This Normal control card directs 
DXOLE to create a load module for execution. If no Type I card is specified, 
the Normal mode is the default Type I control card. Four optional parame- 
ters may be specified on this card. The NEXTD/EXTD parameter specifies 
production (EXTD) or no production (NEXTD) of an External Definition File. 
The External Definition File is a sequential file that contains the names and 
addresses of all the definition statements in the root segment of the object 
to be linked. This file then links subsystems to the operating system root 
segment. The NOVLY/OVLY parameter specifies production (OVLY) or no 
production (NOVLY) of a preplanned overlay structure. If this parameter is 
not present no overlay will be produced, The MAXENT and MAXSEG param- 
eters specify the maximum numbers of forward references in the overlay 
structure and the maximum number of overlays, respectively. The Subsys- 
tem control card also directs DXOLE to create a load module for execution. 
The arguments valid for Subsystem cards have the same meaning as for the 
Normal card. The Normal and the Subsystem modes handle the External 
Definition File differently. The Subsystem mode automatically references 
the EXTD and creates definition entries for all the names in the EXTD. This 
allows privileged programs to use subroutines that are part of the root of 
the operating system. 
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Type II Control Cards, A Type II control card is required unless the pro- 
gram to be linked is a nonoverlaid and nonprivileged program, For this ex- 
ception, DXOLE will take the program entry point from the first object deck 
in the root segment. This default condition allows the control input of 
DXOLE (LUN 5) to be assigned directly to a linked sequential file output from 
the 980 Assembier or FORTRAN compiler. For ali other DKOLE modes at 
least one control card is required, In the Compact mode an Object card is 
required, In the Normal and Subsystem modes a Root card is required. 
Segment cards can also be specified for the OVLY option and Object cards 
for the NOVLY option, 


A special comment is necessary to explain the specification of a FORTRAN 
main program as the entry point in the DXOLE output. DXOLE uses blanks 
as delimiters between the control card type (i.e., Normal, Root, Include) 
and the arguments. This convention makes the specification of 'bMAIN}' 
(The FORTRAN main program IDT) impossible. Therefore, DXOLE handles 
the name 'MAIN' as a reserved word, The IDT specification of 'MAIN' on 
either the Root card or the Object card as the object deck with the entry point 
is interpreted by DXOLE to be any one of the following names: 


1, bMAINB - The FORTRAN main program name, 


2, ‘*KEKKK . The default IDT name assigned to assembler output 
decks 

“ RSA TRT rst. Z| f agen 14. TINT _. = a Bo a a =e me es 4 1 1 1 at 

3. MAIN, - The defauit IDT name assigned to an object deck by the 


PL/EXUS compiler, 


In the Compact mode the Object card has two arguments, The first argu- 
ment is IDTNAM. This argument is the name of the object deck which has 
-an end vector to be used to define the control entry point of the linked object 
deck, The second parameter is OBJNAM. This argument is the name to 
assign to the new linked object deck, No other arguments are valid. 

Multiple compact mode object decks can be output by entering multiple object 
control cards. The object decks are output to LUN 7 and terminated with a 
single end of file. 


In the Normal and Subsystem modes the Root card defines the memory resi- 
dent code. Segment and Object cards define preplanned and unplanned over- 
lays, respectively. The Root card has one argument, IDTNAM. This argu- 
ment specifies the name of the object deck which has an end vector to be used 
to define the control entry point in the root segment of the load module, The 
Segment card has 1 argument, the level number, This argument defines the 
overlay's relationship to the other overlays and the root, The root is at 
level 0 of the overlay, The first level below the root is level 1, the next 
logical level is level 2 and so forth, Level numbers must be sequential, An 
Object card also defines an overlay. However, all Object overlays are at 
level 1, The Object card is valid only for the unplanned overlays (NOVLY 
option). The first parameter of the card, IDTNAM, identifies the object 
deck which has an end vector to be used to define the control entry point for 
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this overlay. The second required parameter, OBJNAM, associates a 

name with the overlay being created, This parameter is entered in the 
symbol table of DXOLE with a value equal to the overlay number (i.e. 1 for 
the first, 2 for second, etc.). This entry name may be referenced from any 
other segment and is resolved by DXOLE as the overlay number. The third 
parameter, HEXCON, is optional. If specified, this parameter indicates the 
load address of the newly created overlay. 


Type UI Control Cards. Type II] control cards specify input LUNs. The 
link editor uses the LUNs to obtain the object programs to be included. Type 
ITI cards follow the Type II card defining the beginning of a root or overlay, 
and precede the Type II card that defines the beginning of the next overlay. 


The Search and Include cards have identical formats, Both have one or more 
parameters, Each parameter is either a LUN or a LUN followed by one or 
more indexed record keys grouped inside parentheses. Specified keys are 
evaluated as an USASCII string. Keys are limited to a maximum of 8 char- 
acters, Keys of less than 8 characters are extended on the right with blank 
characters, LUNs accessed with keys must be assigned to an indexed file, 
The Include card identifies particular object modules which DXOLE includes 
in the output phase being created, Search cards identify object modules to 

be searched for a definition that resolves an undefined reference in the same 
phase, Only those modules that resolve external references are included, 
Search and Include cards are processed when encountered in the input stream 
and are scanned from left to right, If the LUNs do not have keys, the link 
editor processes object modules until it finds an end of file. Ifa key is speci- 
fied, the link editor processes all object modules until it finds an end of file 
or another keyed record, DXOLE processes object modules in the input 
stream as if they were specified by an Include statement, The object module 
is included in the output phase regardless of whether it resolves external ref- 
erences, A keyname of 'S6MAINS' cannot be specified because DXOLE does 
not allow imbedded blanks within the list of keys. To include a FORTRAN 
main program, specify a keyname of 'MAIN'. 'MAIN' will be interpreted as 
'SMAIN$' for this program. 


The Library card can only specify LUNs. Each LUN must have been as- 
signed to an indexed file which has been formatted like the system library. 
The link editor does not search libraries until it processes all other Type 
III control cards. DXOLE then searches the indexed file(s) in the order 
specified by the Library card before searching the system library file. The 
system library, LUNY, is not accessed in the Compact mode unless explit- 
icly specified on a Library control card. 


8.5.4.4. USING DXOLE WITH BATCH INPUT READER, Executing DXOLE 
under Batch Input Reader (BIR) requires careful preparation of the input 
stream if LUNs other than LUN 5 are assigned to the card reader, When 
DXOLE processes an Include or Search card, the referenced LUN is opened 
and read until an end of file is found, The input stream for DXOLE must be 
structured as shown on the following page. 
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ROOT IDT1 
1700 IDT1 
1706 
INCLUDE 17 
1700 IDT2 
1706 
1700 IDT3 
1706 
[* End of file for LUN 17 
SEARCH 18 
* End of file for input stream LUN 5 


The included file is physically defined inside the data for LUN 5. When 
DXOLE encounters the Include for LUN 17, it opens and reads the file. 
When the end of file is found, LUN 17 is closed and the next control card is 
read from LUN 5. This structure also works for the Batch Input Spooler 
(BIS). However, a more conventional input stream for BIS is as follows: 


//DATA 5 
ROOT IDT1 
1700 IDT1 
1706 


INCLUDE 17 
SEARCH 18 


/* End of file for LUN 5 
//DATA 17 

1700 Por Z 

1706 

1700 

1706 End of file for LUN 17 
[x 
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8.5.5 ERROR CODES 


Table 8-10 lists the error codes and their corresponding meanings for the 
DXOLE utility. 


Table 8-10. DXOLE Error Messages 


Missing Type 1 Control Card 

Improper Control Card Format 
Unidentifiable Control Card 

Maximum Number of Entries Exceeded 
Invalid Control Card Argument 

Unexpected End Of File On LUN 

Missing Type 2 Control Card 

Invalid Control Card For DKOLE Mode 
Multiply Defined Root Segment 

Missing Argument Following Delimeter 

Too Many Arguments 

Undefined Program Name 

Invalid Delimiter 

Invalid LUN 

Invalid Key 

Missing 1700 Object Record 

Level Number Not Sequential In Overlay 
Maximum Number Of Segments Exceeded 
Maximum Number Of Entries Too Large 
Invalid Number Specified 

Numeric Overflow >16 Bit Signed Number 
Missing Root Segment 

Multiply Defined Name 

Invalid Level Number 

Table Requirements Exceeded Available Memory 
Object Decks Must Be Relocatable 
Unidentifiable Object Record 

Checksum Error 

Missing 1706 Object Record 

Common or External Reference Not Defined 
Before Referenced 

File Organization Does Not Allow Keyed Access 
Library File Not Properly Structured 

Block Data STMTS Must Be In MIP Defining the 
Common 


1 
2 
3 
4 
5 
6 
7 
8 
? 
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8,5,6 INPUT FORMAT 


The following paragraphs describe the structure and format for input ac- 
cessed by DXOLE, Refer to the description of the JCL translator in this 
section of the manual for the structures of: 


® Library files 
® Data sets 


. Object records in the files 

8.5.6.1 DATA SET STRUCTURE FOR SEARCH AND INCLUDE, LUNs 
referenced by Search and Include commands can be accessed either sequen- 
tially or randomly. The user specifies the access method by supplying either 
a LUN only, or a LUNanda key. When supplied with a LUN only, DXOLE 
processes the LUN sequentially until it finds an end of file. Data sets or de- 
vices assigned to these LUN's must allow sequential access of data, All 
records read from that LUN must be in DXOLE input object format, By 
specifying a LUN number and the value of a key, the user can specify pro- 
cessing of any part of a key indexed file. (The LPFBLD utility can be used 
to build a key indexed file with keynames equal to the object deck IDTNAM.,) 
The key is an index for positioning to the first record to be read, Process- 
ing is complete when DXOLE encounters either an end of file or another rec- 
ord with a key. The key lengths are restricted to eight characters, Ifless 
than eight characters are specified, the editor adds USASCII blanks on the 
right of the key to make eight characters, The physical structure of the data 
set is as follows: 


Keys Data Associated with Key (Object Record) 
PGMO1b 1700 PGMOl1 
1702 


1706 
TABLE} 1700 TABLE 


1706 


To include object modules from this data set, the programmer specifies the 
name of the program(s) to be accessed, For example: 


INCLUDE 1(TABLE, PGMO01) 


A key indexed file with this structure can also be accessed without specifying 
a key since DX980 file management allows sequential access of records for 
key indexed files. 
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8.5.6.2 LIBRARY AND SYSTEM LIBRARY STRUCTURE, DXOLE assumes 
that LUN 9 has been assigned to either a dummy file or a key indexed file that 
was created with the DX980 library builder (LIBBLD) utility program, If as- 
signed to DUMMY, no processing other than syntax checking occurs, Ifas- 
signed to a library file, that file has the characteristics described in the fol- 
lowing paragraphs. 


Library files must reside on disc and must be in the following format: 


Record Key Data Associated with Key 

QQSINE 1700 SINE 
1702 SIND Records defining 
1702 SINE entry points, 


1702 ARCSIN 


1706 
SIND QQSINE 
SINE QQSINE 
ARCSIN QQSINE 
QQCOSINE 1700 COSINE 
1702 DCOS 


1702 COSINE 
1702 ARCCOS 


1706 
DCOS QQCOSINE 
COSINE QQCOSINE 
ARCCOS QQCOSINE 


The 1700 object record of all programs in the library have a key equal to the 
characters 'QQ' concatenated with the identification name of the program. 
All other object records for this object deck are sequentially linked to the 
keyed 1700 record. The utility program that creates the library also makes 
a key equal to each entry point in the object module (i.e., SINE, SIND, 
ARCSIN for object deck SINE). The data associated with each key is another 
key that positions the file at the 1700 object record of the program defining 
the entry point, DXOLE accesses all library files in the following manner 
for each unresolved external reference: 


(1) The name of the symbol referenced is used as a key to read the 
library. 


(2) If the key does not exist, the symbol is not defined by any object 
module in the library. 
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(3) If the key exists, the first 8 characters of the record returned are 
used as the key of a second read operation, 


(4) The data returned with the second read must be the 1700 object rec- 
ord of the module defining the external reference, Also, the second 
key must exist or the library is improperly structured, 


(5) Processing of the object module terminates with the 1706 record, 


Library files may also be referenced with Search and Include control cards 
by specifying the key that positions the file at the 1700 record, Thatis, the 
letters 'QQ' followed by the identification name of the program to be ac- 
cessed: 


INCLUDE 9(QQSINE, QQCOSINE) 


A library file must have a key specified if accessed with an Include or Search 
card since some of the records contain keys rather than object records, 
Using an Include ona library might be necessary if the order of the object 
modules in the load module is important, Otherwise, normal library pro- 
cessing at the end of a program segment will include those program neces- 
sary to define external references, 


8.5.6.3 OBJECT RECORD FORMAT, DXOLE accepts object from linked 
sequential files, key indexed files, and devices, Several different data set 
organizations are allowed. The DXOLE controi cards describe the organiza- 
tion of the data set and therefore the processing method used, All input data 
sets must define at least one object module, Seven standard object records 
are used by all object modules, These object records are illustrated in fig- 
ure 8-3, Note that each record contains 32 words. All numbers are hexa- 
decimal, and the object records are independent of the object media, The 
first word of each record specifies the record type (0-6), The last word in 
each record is a checksum, which is the two's complement of the sum of the 


first 31 words, 


Identification Record. The identification record contains the program name 
which may be specified, for example, inanIDT assembler directive, If the 
program name is greater than six characters, it is truncated; if it is less 
than six characters, trailing blanks are inserted, Leading zeros are in- 
serted in the format code, 


Common Symbols, Each record of common symbols contains a maximum of 
seven symbols, Each symbol contains six characters, and trailing blanks 
are inserted as required. A stop code is required following the last symbol 
in each record, 


Entry Points, Each record of entry points contains a maximum of seven 
entries as indicated, for example, by a DEF assembler directive, 
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IDENTIFICATION 
a 
2 3 

FORMAT CODE 


FORMAT CODES 


5=RELOCATABLE OBJECT 


PRNAME IS THE 
PROGRAM NAME 
IN ASCI! CHARACTERS 


ARE RESERVED. H 
b2 5 
CHECKSUM 


ENTRY POINTS 


UP TO SEVEN ENTRY POINT 
SYMBOLS ARE CONTAINED 
WITHIN A RECORD. 


A STOP CODE 003046 !S 
INSERTED FOLLOWING 
THE LAST ENTRY POINT 
ADDRESS TO INDICATE 
THE END OF DATA WITHIN 
A RECORD. 


CHARACTERS 60 AND 61 # 
ARE RESERVED. 


(A)130394 (1/72) 


Figure 8-3, 


ENTRY POINT 
SYMBOLNO. 1 


ENTRY POINT 
SYMBOL NO.2 


A STOP CODE 003016 IS 
INSERTED FOLLOWING 

THE LAST SYMBOL LENGTH 
TO INDICATE THE LAST 
COMMON SYMBOL ENTRY 
WITHIN A RECORD. 


CHARACTERS 6061 
ARE RESERVED 


COMMON SYMBOLS 


COMMON 
SYMBOL 
NO.1 
8 
COMMON 
16 17 
LENGTH 
50 7 COMMON 
SYMBOL 
24 Vac) 
LENGTH 
a G 
COMMON 
NO.4 
aa a 
32 k<] 
LENGTH 
aes mee | ieee 
ii 
40 1 
LENGTH 
ce Aaa | Pre 
oe ee 
: LENGTH 
ee aE | Peer 
a a | ee 
6 7 
LENGTH 


62 6 
CHECKSUM 


Object Records (Sheet 1 of 2) 
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EXTERNAL REFERENCES 


BLOCK DATA 
PT = 
2 3 

COMMON NO. 

4 5 
RELATIVE LOCATION 
6 ? 


16 17 
RELATIVE LOCATION 


19 
DATA COUNT 


(A)130394 (2/2) 


Figure 8-3, 


EXTERNAL 
REFERENCE 
~NO.1 
VARIABLE 
LENGTH DATA 
: (ITEMS CAN BE 
EXTERNAL 1 TO 3 WORDS). 
REFERNANCE 
NO.2 


ASTOP CODE 003016 |S 
INSERTED FOLLOWING 
THE LAST EXTERNAL 
REFERENCE TO INDICATE 
THE ENO OF DATA 
WITHIN A RECORD. 


UP TO SEVEN EXTERNAL 
REFERENCES CAN BE 
CONTAINED WITHIN A 
RECORD. 


CHARACTERS 60 AND 81 
ARE RESERVED. 


BLOCK DATA RECORDS 
ARE OUTPUT BY THE 
FORTRAN COMPILER. 


VARIABLE LENGTH, <4 
DATA WORDS (MAY NOT | 
EXTEND BEYOND THE END 
OF THE RECORD) 


A MINUS ONE IS INSERTED 
TO INDICATE THE END OF 
DATA WITHIN A RECORD. 


TEXT 


Prem dou 
4 5 
RELOCATION MAP 
6 ? 

LOAD ADDRESS ; 


RELOCATION MAP 


Za 


RELOCATION MAP 


ITEM 21 | 


a | ee 22 


CHECK SUM 


END 


2 3 


ENTRY ADDRESS 


6 7? 
PROGRAM LENGTH 


\ ADDRESS OF FIRST ITEM AFTER THIS WORD. 


RELOCATION MAP 


ITEM ITEM ITEM 'TEM 
1 2 3 4 


WORD, ABSOLUTE 
WORD, COMMON 

WORD, RELOCATABLE 
WORDS, EXT. REFERENCE 
BYTE, ABSOLUTE 

BYTE, COMMON 

BYTE, RELOCATABLE 
BYTE, EXT. REFERENCE 


~~“ OO-"--8400 
~O-O-0-0 


t 
bs 1= LOAD ADDRESS INCLUDED 


LOAD ADDRESS 
ae 


O= NO LOAD ADDRESS 


ITEM n 


X=0 FOR NO VECTOR 
X=1 USE ENTRY ADDRESS 
AS END VECTOR. 


Object Records (Sheet 2 of 2) 
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External Reference Points, Each record of external reference points con- 
tains a maximum of seven references as specified, for example, by a REF 
assembler directive, 


Text Records, All text records include an item count between 1 and 22 for 
the current record, Each item is between one and three words long, and all 
words in an item are contained within one text record, The number of object 
record words per item in memory, and the relocation character printed in 
the first column of an assembly listing appear in table 8-11, The final relo- 
cation map in each record applies only to items within the current record, 
not to any items in the next record, 


Table 8-ll. Text Record Parameters 


Assembly Words per Words per 
Item Type in Relocation Map Listing Item in Item in 
Character Memory Text Record 


Absolute word 

Common word 
Relocatable word 
External reference word 
Absolute byte 

Common byte 
Relocatable byte 
External reference byte 


NM NN DN RB RK Be -E 
WN WN DN BS DN 


Block Data. The block data records contain common numbers which are 
used to order the symbols in the common symbols records for easy refer- 
ence, For example, common number one refers to the common names in 
the first entry of the first common symbols record, Relative location refers 
to the start of the appropriate common, and data count is the number of 
words, not items, in the specified common, 


End Record, The end record indicates the end of the object program, and 
contains the program length in words. 


8.5.7 DXOLE OUTPUT FORMATS 


DXOLE has two output formats: object modules and load modules, Object 
modules, output by the Compact mode, have the same record formats as 
previously described for object records, The format of a load module is 
shown in figure 8-4, Table 8-12 describes the fields of the load module, All 
programs submitted for execution under DX980 must be in load module for- 
mat; object modules cannot be executed directly. 
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ROOT PHASE (MEMORY IMAGE PHASE 0) 


3N WORDS 
RELATIVE 
RECORD NO. 


re) 
1 
CODE FOR ROOT 
2 
K -1 E EPA 
Oo Lo | re) 
K BA 
16) fa) | 
R BTA IBTA [BTA BTA 
Lo oil oo ra) OB 
O 
MEMORY IMAGE PHASE 1 (1ST OVERLAY) 
Ww 
RR 01 a ee08 
@ 
@ 
@ 
RR +K 
1 
MEMORY IMAGE PHASE N (LAST OVERLAY) 
RR 
N 
e 
e 
® 
RR +K 
N oN 
(A)1 30395 


Figure 8-4, DX980 Load Module Records 
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Table 8-12, Load Module Field Definitions 
Definition 


Number of overlays, 


Relative record number of the first word of overlay. The rela- 
tive record number of the root phase (RRo) is always 0. 


Number of words in the code portion of the overlay including 
the entry point word, The length of the root phase (Lilo) is in 
the File Control Block (FCB) of the load module file and is not 
part of the load module proper. Llg includes the length of the 
overhead words for the root segment (3n +3 words long), 


Length of the relocation map in words, L2g is in the FCB of 
the load module and is not part of the load module proper, 


The address of the first word beyond the longest overlay path. 
On the memory image phase file, this word is numerically equal 
to the number of words used by the longest overlay path. The 
word is marked for relocation in the relocate flag table, If the 
load module is executed in the unprivileged mode, no relocation 
will be performed. If the load module is executed in the privi- 
leged mode, a relocation constant equal to the absolute address 
of Wqo will be added. In either case the value in memory is 

the address of the first word beyond the longest overlay path in 
the address space of the executing Job, 


In the memory image phase file this word is numerically equal 
to 3*N+3 and is marked for no relocation in the relocate flag 
table, The correct value is error checked on the load of the 
root phase, After the root phase has been loaded the cell in 
memory is changed to have the absolute address of N, 


Word 0 of the code for overlay i, 
Last word of code for overlay i. 
Entry point address for overlay i. 


Number of sectors required to hold the code portion of overlay 
i. Kj; may be calculated from Ll; or, 


K, = (14431) /32)*32,_ 


using integer arithmetic, 
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Table 8-12, Load Module Field Definitions (Continued) 


BA is a value set by DXOLE to calculate the relocation bias to 
be applied to all relocatable words in the code area from the 


formula, 


BIAS = FWLA-BA, 


FWLA = The address of the first word loaded 
(ADDR(N) if i = 0 or ADDR(W 9;) ifi #0). 


For the root segment BAg is set to -(3*N+3) so the bias will 
evaluate to the address of W009 when loading a privileged 
program. For preplanned overlays, BA is set to the pre- 
planned address relative to Wo9. For unplanned overlays, 
BA is set to 0. 


Number of byte relocatable items in the code portion of the 
overlay. 


where 

First word of the relocation bits, There is 1 bit for each 
word in the overlay. Inthe root, the first relocation bit cor- 
responds to the N, the number of secondary overlays. A 1 in- 

| dicates a relocatable item. 

Rui Last word of the relocation bits, Includes a bit for EPA. 

BTA; Address of first byte relocatable item in this overlay. 


BTA:xp, | Address of last byte relocatable item in this overlay. 


8.6 LIBRARY BUILDER (LIBBLD) 


The LIBBLD utility program builds library files for use by the DX980 Over- 
lay Link Editor (DXOLE). 


8.6.1 STANDARD JCL PROCEDURE 
The following listing is a standard procedure for LIBBLD: 


e# CREATE LIBBLD,COMMENT, "BUILD LIBRARY FILE . 

/REPLACE LIBBLD « BUILD LIBRARY FILE . 

EXEC OBJs(1,SYSTEM,LIBBLD) MEM®(396,2900,1900) PRYY=(1,15)3 

/ TIMEse! MEMSsMEM PRTYsepRI TIMEssTIM 

/ASSIGN § MT1 DEVICEssDOBJ FILEssFOBJ BUFFERS#! + OBJECT INPUT 


ZASSIGN 6 SC DEVICEtsDLST FILEssFLST SHARESsSLST BUFFERS#1.IDT/DEF LISTING 
7ASSIGN 9 DISC1 DEVICEss0LIB FILE:sFLI8 REPLACE: #RLIA;} ; “a 


/ BUFFERS#2 INDEXED ACCESS®(ANY,ANY,ANY,ANY) 3 
/ ACCESS3sCLIB ALLOCATEs(1,0,128,20) ALLOCATEssLLIB; 
Jae KEYLEN®8 ~ OUTPUT [IB FILE 
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8.6.2 MEMORY PARTITION REQUIREMENTS 
Memory requirements of LIBBLD are: 


MEM = (300, 2000, 1000) 


8.6.3 LUN ASSIGNMENTS 
The LIBBLD utility uses three LUN assignments. Table 8-13 outlines the 


functions of each unit. 


Table 8-13. LIBBLD Logical Unit Assignments 
Description 


Provides object input for addition to the 

library file. The LIBBLD utility termi- 
nates when it finds an end of file in this © 
input. 


Provides a hard copy listing of the mod-_ 
ules (IDT names) and of the defined entry 
points within each module in the library. 


Assigned to a key indexed file with a key 
length of 8. This unit contains the 
library file to which the object modules 
will be added. 


8.6.4 OPERATION 


When using LIBBLD, all names must be unique. No two definitions and no 
two IDT names can be the same, The object modules in the library can all 
be added at one time or by several executions of LIBBLD. No object mod- 
ules can be replaced. LIBBLD checks for duplicate IDT names and duplicate 
entry point names, To redefine an object module in the library, the library 
must be entirely rebuilt, 


8.6.5 ERROR CODES 


LIBBLD error messages are literal and self-explanatory, These messages 
are as follows: . 


DUPLICATE DEF NAME, FIRST DEF USED <def name> 
DUPLICATE KEY GENERATED FOR IDT 
LIBRARY IS FULL, NO MORE RECORDS CAN BE ADDED, 
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8.6.6 SAMPLE OUTPUT 


The resulting library file is an indexed data set that has the following logical 
organization of keys and associated data: 


QQIDT1 1700 IDT1 
1702 DEF1 DEFZ2 


DEF 1 QQIDT 1 
DEEZ QQIDT 1 


QQIDT2 1700 IDT2 
1702 DEF3 
1706 


DEF3 QQIDT2 


8.7 FILE COPY UTILITY (DXCOPY) 


The DXCOPY utility copies and saves data from any type of file or device to 
any other type of file or device, In addition DXCOPY can list the contents of 
a file ona printer. Control parameters for the utility specify or override 
optional functions of the utility. All of these parameters may be omitted to 
specify their default values, DXCOPY also generates keys for key indexed 


files. 


8.7.1 STANDARD JCL PROCEDURE 
The following listing is a standard procedure for DXCOPY: 


e# CREATE DXCOPY,COMMENT, "GENERAL PURPOSE COPY " 
/REPLACE DXCOPY » GENERAL PURPOSE COPY . 

EXEC OBJ8(1,SYSTEM,DXCOPY) MEM#(390,3700,2000) PRTY=(1,15)3 

/ TIMEs=1 MEMSSMEM PRYYsm@PRI TIMEseTIo 

7ASSIGN 5 DUMMY DEVICE: =DCON > CONTROL/MESSAGE 
/ASSIGN 6 DUMMY DEVICES=DLST FILEssFLST BUFFERS#1! . LISTING 
ASSIGN 7 DISC1 DEVICE: sDOUT FILE:=FOUT REPLACE: ®ROUT} 

/ BUFFERS#2 BUFFERSssBOUT LINKSEQseLIN RELRECtSREL? 

/ INDEXEDS#IND ACCESSS(CANY,ANYsANY,SANY) ACCESS COUT; 

/ ALLOCATE2(1,0,128,18) ALLOCATES =LOUT KEYLENs63 

/ KEYLEN:sKOUT LRECL#64 LRECL?#G0UT » OUTPUT 
/ASSIGN 8 DISC! DEVICEs2DIN FILEssFIN DELETE:sTIN RBUFFERS#!1 . INPUT 
7END 


8.7.2 MEMORY PARTITION REQUIREMENTS 


The job area consists of space for the DXCOPY load module. Since DXCOPY 
is an overlaid program, this space contains the root segment plus the longest 
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overlay. If there is no listing (i.e. LUN 6 is assigned to DUMMY), the job 
area size may be specified as 2400, If listings are possible (i.e. LUN 6 as- 
signed to a printing device or file), then the job area size must be specified 


as 3700. 
The job extension area can be calculated according to the following formula: 
NEF NB 
<jearea> = >> > (BS;+j) + 17(NT) + 7(NL) + SS + 11 
bea) aes A 
where 


NF = Number of files assigned (O<NF< 3) 


NB = Number of buffers per file (1 NB<x depending on amount of 
blocking) 


BS = Physical record length in words of the individual files 


NT = 2 co-resident tasks if the listing LUN (6) is assigned to DUMMY; 
3 co- resident tasks if the listing LUN (6) is assigned a printing 
device or file 


NL = 4 LUNs assigned 
SS 


600 for dynamic TCB stack requirement if LUN 6 is assigned to 
DUMMY; 900 if LUN6 is assigned to a printing device or file 


Therefore, 


<jearea> = 673 + BB if LUN 6 assigned to DUMMY or, 
<jearea> = 990 + BB otherwise 


where: 


BB = total blocking buffer requirements for all files. 


A default of MEM=(300, 3700, 2000) has been used in the standard procedure 
which allows the listing option and 1000 words of file buffer space. 


8.7.3 LUN ASSIGNMENTS 


The utility program uses four logical unit number (LUN) assignments, as de- 
scribed in table 8-14. 
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Table 8-14. DXCOPY Logical Unit Assignments 


Control input 


Listing output 


5 
6 
it Data output 


| 8 | Data input | 


8.7.4 OPERATION 


The DXCOPY utility is a multitask program that runs under DX980 in the 
protected mode, A minimum of two tasks run concurrently. A third task is 
created if a listing is possible (i.e. LUN 6 is assigned to other than DUMMY). 


The user enters any of the control parameters on LUN 5, The entry is in 
free format with one or more blanks between each parameter, All param- 
eters must be within the same record, For many cases, however, the de- 
fault values of the parameters produce the desired results so fhat none of the 
parameters need to be specified, If all of the control characters are entered, 
the input record is of the following form: 


<type>,<key specification>, <definition>, <rewind option>, TRIM, <list>. 


The following paragraphs describe each of these parameters and their default 
values. 


8.7.4.1 DATA TYPES AND CONVERSIONS, DXCOPY performs the re- 
quired file conversion and copying according to the type of input and output 
files without the data type (<type>) being given explicitly. However, certain 
types of copies do require explicit definition in order to perform the desired 
conversion, Data type specifies the format of the input. The output file data 
is dictated by the input data type and what kind of files are being used (key 
indexed, relative record, linked sequential, or other device), The following 
file types may be used for the <type> control parameter: 


e SOURCE: Source files may exist on any file type. This data type 
is the default value for linked sequential files and non-disc devices, 


e DATA: Data is the default data type when the input file is key in- 
dexed, The Data parameter must be stated if the input or output 
media is binary format paper tape, card, or cassette in order to 
obtain correct input conversion, 


e RELOBJ: Relocatable object is never the default data type. This 
parameter must be specified to verify checksum, or if the input or 
output media is cards, paper tape, or cassette, 
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e MEMI: Memory image is the default data type if either the input file 
or output file is a relative record file, Memory image files exist in 
relative records files as two header words in the File Control Block 
and a group of 32 word records, When DXCOPY transfers the file 
to any other media, it generates a header record followed by data 
records and an end of file. Figure 8-5 illustrates the final format, 
The user must specify either Data or Source for copying relative 
record files that are not load module files. 


® SAVED: Saved data is created by copying a (key indexed) file toa 
file that is not a key indexed file. SAVED is the default data type 
when the input file is indexed and the output file is not indexed. A 
key specification input of NOKEYS overrides the creation of Saved 
files, Saved files consist of physical records of 72 characters or 
less, This organization allows large logical records to be trans- 
mitted on card media, (Figure 8-6 illustrates the format ofa 
Saved file, 


8.7.4.2 KEY SPECIFICATIONS. Key specification parameters allow the 
user to set the characteristics of the keys or to delete input keys in the out- 
put file. DXCOPY accepts the following words for key specification inputs: 


@ KEYLEN=<nchar>: This parameter specifies the length of keys in 
characters, Default length key is 30 characters, 


HEADER 1800 NUMBER OF HEADER HEADER CHECKSUM 
RECORD 16 ATA WORD 1 WORD 2 
RECORD 


10 CHARACTERS 


DATA 
RECORD 180146 32 DATA TZ wore | CHECKSUM 
este Sere oat 68 CHARACTERS a 


THE DATA RECORD CHECKSUM !S THE SUM OF ALL DATA WORDS , THE 
HEADER WORD (180116) AND THE DATA RECORD NUMBER, 


(A)130104 ; = 
Figure 8-5, Memory Image Format for Files 
Other than Relative Record 
pes ui WORD WORD BOUNDARY 
DATA 
181016 KEYLE "1 TO 66 CHECKSUM 
ECOR D DATALENGTH CHARACTERS CHARACTERS 
(IF ANY) 
Bear 
LOGICAL 
INDEXED WORD BOUNDARY 
RECORD 


RE- 
CORDS io ce CHECKSUM 
aon CHARACTERS 
72 ‘ 
CHARACTERS 
MAX, 


Figure 8-6, Saved File Format 
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® KEYPOS=<mchar>: This parameter specifies that a key should be 
generated for each record of input, starting at the character number 
given to the right of the equal sign (<mchar>), 


e NOKEYS: This parameter specifies that any keys found in the input 
file should not be transferred to the output file. This parameter 
overrides the Saved data specification, 


8.7.4.3 DEFINITION, The user can enter: 
FILES=<nfiles> 


to specify copying more than one set of data (delimited by an end of file) to 
the output file, The argument, <nfiles>, is either a number specifying how 
many data sets to copy, or an asterisk (*) to specify copying all data sets 
until an end of media is detected. All end of files are transmitted to the out- 
put file unless the output file is a key indexed or relative record file, These 
output file types cause DXCOPY to declare an error and abort when more 
than one file is transferred, 


8.7.4.4 REWIND OPTIONS, DXCOPY normally rewinds the input and out- 

put files before beginning the copy. However, the user can prevent rewinding 
the input file by specifying NOINREW, Similarly, entering NOOUTREW pre- 

vents rewinding of the output file, 


8.7.4.5 TRIM OPTION, If the user enters TRIM for a control input, 
DXCOPY trims trailing blanks before copying to the output file. 


8.7.4.6 LISTING OPTIONS, If LUN 6 is not assigned to Dummy, DXCOPY 
generates two types of listings by default. The utility produces a source list 
if the data type is Source, or an identification listing if the data type is relo- 
catable object (RELOBJ). In addition, the user can enter the following param- 


ed ee = LF Re bd 


eters to select printing of optional data: 
e RECNO: This parameter specifies printing of record numbers, 


e KEYS: This parameter causes the keys to be listed, The key is 
assumed to be valid USASCII. This listing is printed in hexadecimal 
if the HEX parameter is also specified, 


e HEX: This parameter results in a hexadecimal listing. 


e ASCII: This parameter instructs DXCOPY to print the USASCII 
equivalent to the right of the hexadecimal listing. 


e WIDE: This parameter specifies that a 132 column printer is avail- 
able on LUN 6 instead of an 80 column printer, Hexadecimal dumps 
are then printed at 16 words per line instead of 8 words per line. 


8.7.5 ERROR CODES 


When an error occurs during processing, DXCOPY prints an error code on 
the terminal, Table 8-15. defines the error codes, 
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Table 8-15. DXCOPY Error Messages 
Definition 


Unrecognizable parameter specified 

invalid number 

More than one data specification 

Key length not > 1 and < 32 

Invalid key position specified 

Trim cannot be specified with given (or default) data type 


When copying memory image data from a non-relative rec- 
ord file, the first record was not the expected header 
record. 


When copying memory image data from a non-relative rec- 
ord file, a non-memory image data record was detected 


When copying saved data, a record was found that was not 
an 1810 record when an 1810 was expected 


When copying saved data, a record was found that was not 
an 1811 record when an 1811 record was expected 


An unexpected end of file was detected 
An end of file was not found when an end of file was expected 
A logical error was detected when writing to an indexed file 


An embedded end of file was detected, but the output file is 
either relative record or indexed 


Checksum error 


8.8 PROGRAM DEBUG (DEB980) 


DEB980 is a standalone utility package that aids in debugging user programs 
without endangering system operation, The package includes commands that 
permit the user to modify or display contents of memory and registers, and 
control execution of the program being debugged. Control of execution may 
be either interactive or batch, and includes loading, setting of breakpoints, 
and specifying traces, Program instructions may be executed one ata time 
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to allow examination of results following each instruction. DEB980 is de- 
signed for debugging single tasking jobs and does not support the following 
SVCs: 


® 6 - Delete Task 
6 7 - Suspend Task 
e 8 - Post Event 

e 30 - Create Task 


e 37 - Load 
e 38 - Load and Relocate 


® 49 - Allocate Resource 


e 51 - De-allocate Resource 
e 129 - Start Job 


This program is completely documented in a separate manual: Model 960 


Computer and Model 980 Computer Debug User's Guide and Gpetating ine In- 


structions, Part Number 942760-9701. 


e# CREATE DEB98G, COMMENT, "PROGRAM DEBUG AID ® 
/REPLACE DEB9QGg e PROGRAM DEguUG aID . 

EXEC OBJs(1,SYSTEM,DEB98G) MEMN#8(390,6600,6998) PRTY#(1,15)3 
/ TIMEsel MEMSSMEM PRTYsePRI TIMEssTIM 

ASSIGN eFB SC DEVICE: eDCIN 

ASSIGN oF 1 SC DEVICE: sDMSG 

/ASSIGN oF2 DUMMY DEVICEssDCLST 


CONTROL INPUT 
SYSTEM MESSAGE 
CONTROL LISTING 
/ASSTIGN aF3 SC DEVICEssDUMP FILEssPUMP BUFFERS=1 MEMORY DUMP 


~* ww * 


/ASSIGN oF 4 DISC] DEVICE:sDOBJ FILEseFo8J BUFFERS®1 ~ RELOC OBJECT IN 
/ASSIGN = @ DUMMY DEVICEssDEVa » USER PROG LUN 2 
/ASSIGN = 4 DUMMY DEVICErsDEV4 FILEsaFIL4 BUFFERS@ » USER PROG LUN 4 
ASSIGN = 5 DUMMY DEVICEssDEVS FILEssFILS BUFFERS#1 » USER PROG LUN 5 
/ASSIGN 6 DUMMY DEVICErsDEV6 FILEssFIL6 BUFFERS#1 » USER PROG LUN 6 
/ASSIGN =7-~ DUMMY DEVICE? 80EV7 » USER PROG LUN 7 
ZASSIGN 8 DUMMY LUNOS#LUNS DEVICErsDEVe - USER PROG LUN 8 


/END 
8.8.2 MEMORY PARTITION REQUIREMENTS 


The job area consists of space for the DEB980 load module plus space de- 
pendent on the program being debugged, The following formula specifies the 
job area size requirements: 


<jarea> = 3000 + PS+ WA+ ST 
where 


3000 = DEB980 load module size 


PS = Size of user program object module being debugged 
WA = Work area for program being debugged 
ST = Storage for symbol table and commands 
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The job extension area can be calculated according to the following formula: 


NF NB 
<jearea>= DD >  (BS;+1) + 17(NT) + 7(NL) + SS+ 11 
es 


where 


NE 


Number of files assigned 


NB = Number of buffers per file (1 < NB< x depending on amount of 
blocking) 


BS = Physical record length in words of the individual files 
NT = 1 co-resident task 
NL = 5+ number of user program LUNs 
SS = 300 for dynamic TCB stack requirement 
Therefore 
<jearea> = 363 + 5(UL) + BB 


where UL = Number of user program LUN's; BB = total blocking buffer re- 
quirements for all files. 


A default of MEM=(300, 6000, 600) has been used in the standard procedure, 
8.8.3 LUN ASSIGNMENTS 
NOTE 


- Unlike most utility programs, DEB980 LUN assign- 
ments are hexadecimal numbers. 


Table 8-16 lists the logical unit (LUN) assignments for the DEB980 program. 
In addition, all LUN assignments used in the user program being tested must 
also be assigned to the DEB980 program, 


8.8.4 OPERATION 


Refer to the Debug User's Guide for a description of program operation, 


8.8.5 ERROR CODES 


Refer to Section VI of the Debug User's Guide for a description of error 
codes and messages generated by DEB980. 


8.8.6 SAMPLE INPUT 


Refer to the Debug User's Guide for sample input format, 
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Table 8-16. DEB980 Logical Unit Assignments 


Control input 


Inputs debug commands 


Control log Displays operation messages, error mes- 
sages, simulation termination messages, 


and command requests 


ay 16 Input log Lists commands entered on control input 
device 
F316 Dump and Prints dump and trace messages 


trace output 


F416 Program input ‘Inputs object program being debugged. 
This file must be direct output either from 
| the assembler or from DXOLE in the Com- | 


8.8.7 SAMPLE OUTPUT 
Refer to the Debug User's Guide for sample output format. 


8.9 SYMBO 


The general assembler, SAPG, translates 980 symbolic assembly language 
into object language acceptable to the Model 980 Computer, SAPG is a two 
pass assembler, During Pass 1, a symbol table is generated as the source 
program is read, Pass 2 generates the object output and program listing 
using both the source program and the generated symbol table. More de- 


tailed characteristics of the 980 assembler are described in the Model 980 
weodel FOU 


WS Vass weve we 


Computer Assembly Language Programmer's Reference Manual, Part Num- 
ber 943013-9701., 


8.9.1 STANDARD JCL PROCEDURE 


Standard JCL procedures are listed below for the single job step assembly 
job and for the 3-step assemble, link and go job sequence, 
o# CREATE ASMBLR,COMMENT, "ASSEMBLE 


/REPLACE ASMBLR e ASSEMBLE . : 

/EXEC OBJs(1i,SYSTEM,ASMBLR) MEM®(390,5909,1000) PRTY#(1,15)3 

/ TIMEsei MEMSSMEM PRTYssPRI TIMEssTIM ' 

/ASSIGN @ DUMMY DEVICEssDMSG SHARE ‘ » SYSTEM MESSAGE 
/ASSIGN 4 DUMMY DEVICEssDCON SHAREs#SCON » CONTROL/MESSAGE 
/ASSIGN § DISC1 DEVICEssDSRC FILEs*FSRC BUFFERS#! - SOURCE INPUT 
/ASSIGN 6 SC DEVICEssDLST FILEssFLST SHARESe#SLST ABUFFERS#!,SOURCE |. IST/ERROR 
/ASSIGN 7 OSCi DEVICEssP0BJ FILE:sFORJ NEWssNOBJs 

/ REPLACEs#®ROBJ BUFFERSsi LINKSEQs 

/ ACCESSS(ANY,ANYSANYeANY) ACCESS3 8COBJ3 


/ ALLOCATE#(1,0,64.10) ALLOCATEssLOBJ . OBJECT OUTPUT 
/ASSIGN 16 OSCc1 FILEs(TEMP,SCRL) NEW BUFFERSe? LINKSEQ? : 

/ ACCESS®CANY,ANYeANYSANY) ALLOCATE#(108,300,256,32) . SOURCE SCRATCH 
/END 


(Continued on next text page) 
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(Continued from previous text page) 


»# CREATE ASMLGO,COMMENT, "ASSEMBLE, LINKs AND GO R 

/REPLACE ASMLGO e ASSEMBLE, LINK, AND GO. 

/JEXEC OBJ8(1,SYSTEM,sASMBLR) MEM#®(390,5000,1008) PRTY=(1,15)? 

/ TIMEsel MEMS SMEMA 

/JASSIGN @ DUMMY DEVICE3sDMSG SHARE - SYSTEM MESSAGE 
/ASSIGN 4 DUMMY DEVICES*sDCON SHARE? sSCON « CONTROL /MESSAGE 
/ASSIGN §5 DISCi DEVICE:#0SRC FILEssFSRC BUFFERS#1 » SOURCE INPUT 
/ASSIGN 6 8C DEVICE:sDLSTA FILEssFLSTA BUFFERS#1 . SOURCE |.IST/ERROR 
/ASSIGN 7 DISC1 FILESC(TEMP,OBJECT) NEW BUFFERS#!1 LINKSEQ) 


/ ACCESS#(ANY,ANYsANYeANY) ALLOCATES (18,500,64,10) . OBJECT OUTPUT 
Ghesten 16 DISC{ FILE#(TEMP,SCRL) NEW BUFFERS#1 LINKSEQ? 

ACCESS®(ANYSANYSANYSANY) ALLOCATE®(18,300,256,58) . SOURCE SCRATCH 
re OBJs(1,SYSTEM,OXOLE) MEM#(300,12988,3008) PRTY#(1,15)3 


/ TIMEsel MEMS SMEML P 

ASSIGN § DISC! FILES(TEMP,OBJECT) DELETE BUFFERS#! - PRIMARY INPUT/CON 
ASSIGN 6 SC DEVICESsDLSTL FILEtsFLSTL BUFFERS#1 LOADMAP I.IST/ERR 
/ASSIGN 8 OISC1 FILE=(TEMP,LM) NEW BUFFERS#1 RELREC LRECL #649 

/ ACCESSS(ANYsANYsANYSANY) ALLOCATES (10,5380,32-12) ,. LOAD MOD OUTPUT 
/ASSIGN 9 DUMMY - LIBRARY FILE 
/ASSIGN 10 O18C1 FILE#C(TEMP,SCRL) DELETE BUFFERS#1 LINKSEG SCRATCH 
/ASSIGN 13 DISC{ FILES(TEMP,SCRR) NEW DELETE BUFFERS#={ RELRECS 

/ ACCESS# (ANY ANYSANY*ANY) ALLOCATES (10,580,128,18)3_ 

/ LRECL #120 - RELREC SCRATCH 
/EXEC OBJs(1,TEMPoLM) MEMS(380-490G,1088) PRTY®(1,15)3 

/ TIMERi@@ MEM3sMEMG TIMEs#TIMG 

ASSIGN 4 DUMMY DEVICESsDEV4 FILEssFIL4 BUFFERS#2 - USER PROG LUN 4 
/ASSIGN § SC DEVICEssDEVS FILEssFIL5 BUFFERSs2 » USER PROG LUN 5 
/ASSIGN 6 SC DEVICEssDEV6 FILEssFIL6 BUFFERSs2 - USER PROG LUN 6 
/ASSIGN 7 DUMMY DEVICE8sDEV7 . USER PROG LUN 7 
ZENO 


8.9.2 MEMORY PARTITION REQUIREMENTS 


The job area consists of space for the load module of the assembler and any 
work space required by the assembler for symbol table storage. The number 
of words required for a single symbol table entry is a function of the number 
of characters in the symbol as shown in table 8-17. The job area require- 
ment may be calculated using the following formula: 


<jarea> = 3650 + 3(S12) + 4(S34) + 5(S56) 
where: 


3650 = SAPG load module size 

S12 = Number of symbols in table with a 1 or 2 character length 
S34 = Number of symbols in table with a 3 or 4 character length 
S56 = Number of symbols in table with a 5 or 6 character length 


A job area size of 5000 words will allow the assembly of a program with as 
many as 270 symbols, 
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Table 8-17. Symbol Table Memory Allocation 


Symbol Length Words Required 
in Characters in Symbol Table 


1-2 
3-4 


5-6 5 
——— SS 


The job extension area can be calculated according to the following formula: 


NF NB 
<jearea>= > >  (BS;+1) + 17(NT) + 7(NL) + SS 4 11 
isl jel 


where 
NF = Number of files assigned (0< NF < 3) 


NB = Number of buffers per file (1< NB < x, depending on amount of 


blocking) 
BS = Physical record length in words of the individual files 
NT = 1 co-resident task 


NL = 6 LUNs assigned 
SS 


300 for Dynamic TCB stack requirement 
Therefore, 


<jearea> = 370 + BB 


where BB is the total blocking buffer requirements for all files. 


To assemble a program using the standard JCL procedure provided previously 
in this section using input and output files having physical record lengths of 
256 words or less, a job extension area of 1000 words is adequate, 


8.9.3 LUN ASSIGNMENTS 


Table 8-18 lists the logical unit assignments for the assembler. 
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Table 8-18. SAPG Assembler Logical Unit Assignments 


System error messages Any printing device 


Messages and control Any input/output device 


Source input Any input device/file. If not re- 
windable, LUN 16 must be assigned 
to a rewindable device/file, or in- 
put must be manually input twice. 


Output listing and Any printing device/file 
error messages 


Relocatable object output Output device/file 


Temporary storage of Any input device/file, If rewind- 

source input able, it is used as input to Pass 2; 
if not rewindable, LUN 5 provides 
input to Pass 2, 


8.9.4 OPERATION 


The SAPG assembler is a single-task program that runs under DX980 in the 
protected mode. Figure 8-7 illustrates the operation and LUN assignments 
for SAPG. The assembler first determines if the source input (LUN 5) is re- 
windable. If itis not rewindable, SAPG prints the message: 


READY SOURCE, HIT C/R 


on LUN 4. When this message appears, the operator should ready the source 
device, if necessary, and then select a carriage return on LUN 4, This con- 
trol interaction can be eliminated by assigning the message and control (LUN 
4) to DUMMY. Pass 1 reads the source from LUN 5 until it reads a record 
containing an END directive, After the END is processed, Pass 1 terminates 
and Pass 2 begins, 


Pass 2 obtains the source input from one of two sources: 


1) If LUN 16 has been assigned to a rewindable device or to a file, 
Pass 1 copies the source input to LUN 16 and Pass 2 uses LUN 16 
for its input. 


2) If LUN 16 has been assigned to a non-rewindable device, Pass 2 
uses the primary source input, (LUN 5) for input. If LUN 5is as- 
signed to a rewindable device or to a file, Pass 2 automatically re- 
winds LUN 5, If LUN 5is not rewindable, the source input control 
message: 


READY SOURCE, HIT C/R © 
is again printed to LUN 4, After repositioning the source in LUN 5, 


select carriage return, 
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fp SYSTEM 


ERRORS 
LUN 0 


MESSAGES 


AND CONTROL 
LUN 4 


PASS 1 
BUILD TABLES 


PASS 1 
ERROR LiST 
LUN 6 


SOURCE INPUT 
LUN 5 


SYSTEM 
ERRORS 
LUN 0O 


SOURCE INPUT 
LUN 5 


PASS 2 


1. PROCESS FIELDS. 

2. OUTPUT MACHINE 
LANGUAGE EQUIVALENT. 

3. LIST ERRORS. 


LIST OUTPUT 
AND ERRORS 
LUN 6 


' 
NOTE, SOME FUNCTIONAL BLOCKS INDICATE THAT weg tA 
A REWIND IS REQUIRED BEFORE PROCESSING 
MAY CONTINUE, THE REWIND CAPABILITY R 
1S DEFINED AS FOLLOWS, 


ers AUTOMATIC REWIND 
MANUAL REWIND 


Figure 8-7. SAPG Assembler Functional Diagram 


(A)130097 
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Pass 2 produces a listing and the bulk of the object output, and terminates 
processing when it encounters an END directive. At that time Pass 1 re- 
starts, The SAPG assembler continues to process source inputs terminated 
by an END directive and generates corresponding output object modules until 
it reads an End of File (EOF) record (/*) to terminate the assembly, It then 
outputs an EOF record and trailer at the end of the object output to indicate 
assembler termination, To execute any object program under DX980, the 
module must be linked using the link editor, DXOLE, 


8.9.5 ERROR CODES 


When SAPG reads the source program, it may detect format errors, Detec- 
tion of an error prints a diagnostic message on LUN 6, If the error is de- 
tected in Pass l, the message appears before the listing, If the error is de- 
tected in Pass 2, the message is printed adjacent to the source line in question, 
A total number of errors encountered in the assembly is given at the end of 

the listing, Table 8-19 lists the possible error messages printed by SAPG. 


8.9.6 SAMPLE INPUT 


Figure 8-8 illustrates the source input to the SAPG assembler. 


8.9.7 SAMPLE OUTPUT 


Figure 8-9 illustrates the object module output from the SAPG assembler. 


8.10 FORTRAN IV COMPILER 


The FORTRAN compiler furnished with the DX980 operating system exceeds 
the specifications set forth in the American National Standards Institute pub- 
lication number USAS X3.9-1966, The FORTRAN compiler is a l-pass, 2- 
phase compiler that outputs an intermediate pseudo object of tables and link- 
age information at the end of Phase 1, Using the mass storage capability of 
the DX980 system, the operator need not handle the pseudo object output, 
More detailed characteristics of this compiler are described in the FORTRAN 
manual referenced in the Preface to this manual. 


8.10.1 STANDARD JCL PROCEDURE 


Standard JCL procedures are listed below for the 2-step FORTRAN compile 
job sequence (Phase 1 and Phase 2) and for the 4-step FORTRAN compile, 
link and go job sequence. This procedure does not permit searching of any 
alternate, user-supplied libraries other than the standard FORTRAN library. 
To enable additional searches, a separate JCL procedure must be written 
with modifications to the job step portion of DXOLE. These modifications in- 
clude assignment of the object module (TEMP, OBJECT) to an unused LUN, 
assignment of the alternate library file to another unused LUN, and assign- 
ment of the required DXOLE control commands (either ina file or from an 
input device) to LUN 5. 
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7 CREATE FTNPS1,COMMENT, "FORTRAN PHASE 1 COMPILE " 
/REPLACE FYNPS{ « FORTRAN PHASE 1 COMPILE , 
/EXEC OBYs(1,SYSTEM,FTN) MEM@(309,8000,1000) PRTY#(1,15)3 


/ TIMEsel MEM3®MEM PRTY:sPRI TIMEssTIM 

/ASSIGN @ DUMMY DEVICE&sDMSG SHARE ; 
/JASSIGN 5 DISC! DEVICEssDSRC FILE3:sFSRC BUFFERS#1 * 
/ASSIGN 6 SC DEVICEssDLST FILFEssFLST SHARESeSLST RUFFERSSt, 
ASSIGN 7 DISC1 DEVICEssOINT FILEssFINT BUFFERS8! LINKSEQ; 


/ ACCESSS(ANY,ANY*/ANYSANY) ALLOCATE®(1,0,64,30)} ‘ 
/ NEWssNINT REPLACESSRINT ACCESSssCINT ALLOCATES sLINT 
/END 

0% CREATE FINPS2,COMMENT, "FORTRAN PHASE 2 COMPILE 5 
/REPLACE FINPS2 « FORTRAN PHASE 2 COMPILE , 

EXEC OBJe(1,SYSTEM,FTNPS2) MEM®(390,8900,1000) PRTY#(1,15)3 
/ TIMEsei MEMtsMEM PRTYss@PRI TIMESeTIM 


/ASSIGN @ DUMMY DEVICE3sDMSG SHARE ‘ 
/ASSIGN 6 SC DEVICEseDLST FILEssFLST SHARESsSLST BUFFERS#1, 
/ASSIGN 7 DISC DEVICE:sD0BJ FILE:sFOBJ BUFFERSs1 LINKSEO}3 

/ ACCESS®(ANY,ANYsANY/ANY) ALLOCATE®(1,0,64,10)3 Z 
/ NEWssNOBJ REPLACEssROgBJ ACCESS: sCOBJ ALLOCATE: =sLOBs 
/ASSIGN 8 DISC1 DEVICE:sDINT FILFs2FINT BUFFERS#1 . 
7END 


»# CREATE FTNLGO,COMMENT, "FORTRAN COMPILE. LINK,AND GO* 
/REPLACE FTNLGO « FORTRAN COMPILEs LINK, AND GO, 
/EXEC OBJs(1,SYSTEMsFIN) MEMe(30g,10006,1000) PRTY=(1,15)) 
/ TIMEsei, MEMtsMEMC 


/ASSIGN @ DUMMY DEVICESsDMSG SHARE ? 
/ASSIGN 5 DISC1 DEVICEtsDSRC FILErsFSRC BUFFERS#! p 
/ASSIGN 6 SC _ DEVICEssDLST1 FILEtsFLST BUFFERS#! 
{ASSIGN 7 Drsei FILESCTEMP,PHASFE1) NEW BUFFERSs1 LINKSEQSs ° 


ACCESSSC(ANY-ANYSANYSANY) ALLOCATES (10,3890,64,30) . 
Ele OBJs(1,SYSTEM,FINPS2) MEM*(300, 8906 ,1060) PRTY#¢(1.,15)3 
/ TIMEzel MEM: @MEMC 


/ASSIGN @ DUMMY ; 
JASSIGN 6 SC DEVICES sDLST2 é 
/ASSIGN 7 DISCt FILES(TEMP,OBJECT) NEW BUFFERS#! LINKSEG? 
/ ACCESS#(ANY,ANY,ANY/ANY) ALLOCATES(10,300,64,10) 
/ASSIGN 8 DISC1 FILE=(TEMP,PHASEL) BUFFERS#1 


JEXEC OBJs(1,SYSTEM,DXOLE) MEM#(309,12000,3000) PRTY=(1,15)3 


/ TIMEsel MEM3 SMEML ‘ 
JASSIGN 5 DISC1i FILES(TEMP,OBJECT) DELETE BUFFERS#1 _ 
/ASSIGN 6 SC DEVICEreOLSTL FILE:sFLST BUFFERS#1 

7JASSIGN 8 OISC1 FILES(TEMP,LM) NEW BUFFERS#1 RELREC? ‘ 
/ ACCESS#®(ANY,ANY,ANYSANY) ALLOCATE®(10,300,32.19)3 . 
/ LRECL 864 
/ASSIGN 9 DISC1 FILE® (SYSTEM, USRFIN) BUFFERS#2 ‘ 
/ASSIGN 1@ DISCi1 FILES(TEMP,PHASEL) DELETE BUFFERS#1 e 
ZASSIGN 13 DISC1 FILESCTEMP,SCRR) NEW DELETE BUFFERS#1 RELREC3 
/ ACCESS®(ANY,ANY,/ANY,ZANY) ALLOCATE®#(10,300,128,10)3. 
/ LRECL#10@ 

JEXEC OBJs(1,TEMP,LM) MEM=(300,8909,1908) PRTY#(1,15)3 

/ TIMES{@@ MEM$=MEMG TIME ss TIMG P 
/ ASSIGN ® sc DEVICE: sDMSG ; 
/ASSIGN +2B@ SC DEVICE: sDEVG A 
/ASSIGN »B1 DUMMY DEVICEssDEVi 

/ASSIGN »B5 SC DEVICEssDEVS FILEssFILS BUFFERS=2 - 
/7ASSIGN 286 SC DEVICEssDEV6 FILE:sFIL6 BUFFERS#2 ‘ 
/ASSIGN -B8 DISC1 FILES(TEMP,SCRL) NEW BUFFERS#1 LINKSEQ? ; 
/ ACCESSBSCANYsANY,ANY*SANY) ALLOCATE®(16,3808.32,18) . 
“END 


SYSTEM MESSAGE 
SOURCE INPUT 
SOURCE |.IST/ERROR 


SOURCE SCRATCH 


SYSTEM MESSAGE 
ERROR MMSSG85 


OBJECT OUTPUT 


INTERMED ORJECT 


SYSTEM MESSAGE 
SOURCE INPUT 
SOURCE |.IST/ERROR 
INTERMED ORJECT 
SOURCE SCRATCH 


SYSTEM MESSAGE 
ERROR MESSAGE 


OBJECT OUTPUT 


« INTERMED OBJECT 


PRIMARY INPUT/CON 


" LOADMAP LIST/ERR 


LOAD MOD OUTPUT 


LIBRARY 
LINKSEQ SCRATCH 


RELREC SCRATCH 


SYSTEM MESSAGE 
USER LUN @ 

USER LUN 1 

USER LUN 5SeINPUT 
USER LUN 6s80UTPUT 


USER SCRATCH FILE 
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Table 8-19. SAPG Error Messages 


Message 
M 


FIELD SZ 


UNDF OP 


LONG SYM 
MDF O/F 

FRM > 16 

CAD > 10 

UNDF SYM 
MDF SYM 

RELOC 


SYM OVF 


BAD NUM 


IMP R/D 


X RF USE 


IXB ERR 
OPD ERR 
ADR MODE 


Meaning (and Corrective Action) 


Address beyond reach (use @ for extended 
format) 


Undefined operation code (check list of valid op 
codes) 


Symbol > 6 characters 

OPD or FRM multiply defined (rename label) 
FRM fields contain more than 16 bits 
Address expression > 10 elements 

Symbol not defined (label probably omitted) 
Symbol multiply defined (rename labels) 


A relocation error (use only relocatable label in 
arithmetic expression, or ORG statement can 
use only one relocatable label) 


Too many symbols have been defined (cut out 
symbols or divide program) 


Numeric element not valid (properly define 
item in label or address field) 


A REF or DEF symbol has been used improperly 
(REF symbol defined inside and outside the pro- 
gram; DEF symbol not defined in the program) 


A REF symbol has appeared invalidly in an un- 
relocatable expression . 


Address mode error (improper use of IXB field) 
No such OPD format number 


Illegal addressing mode (improperly written ad- 
dress) 


a cc UE EEE SInEEEIEEEIRInAERESEEEEEEentnesemnemeenmeed 
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(A)1 30396 


Figure 8-8. Assembly Language Source Input to SAPG 


/* (EOF) 
| e | 
e 
e 


(A)130397 


Figure 8-9, Object Module Output from SAPG 
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8.10.2 MEMORY PARTITION REQUIREMENTS 


The job area required to run Phase 1 and Phase 2 of the FORTRAN compiler 
consists of space for the load modules as well as dynamic workspace, For 
Phase l, this job area is defined by the equation: 


<jarea>) = LM, + WS] 
where 
LM, = 6650 (Phase 1 compiler load module size) 


WS] = workspace required (program size dependent) 


A job area size of 8000 words for the Phase 1 compilation job step allows for 
compiling a small FORTRAN program, For Phase 2, the job area size is 
defined by the equation: 


<jarea>2 = LM, + Ws, 
where 
<jarea>z = job area size for Phase 2 
LM? = 2800 (Phase 2 compiler load module size) 


WS = workspace required (program size dependent) 


A job area size of 8000 words for the Phase 2 compilation job step allows 
for compiling a small FORTRAN program, 


The job extension area can be calculated according to the following formula: 


NE NB 
<jearea>= )> >, (BS, + 1) + 17(NT) + 7(NL) + SS+ 11 
Ped, as 


where 
NF = Number of files assigned to the job step (0 < NF < 3) 


NB = Number of buffers per file (0 < NB< x, depending upon amount of 
blocking) 


BS = Physical record length in words of the individual files assigned to 
the job step 


NT = 1 co-resident task 

NL = 4 LUNs assigned to the compiler 

SS = Dynamic TCB stack requirement (300 for compiler) 
Therefore, 


<jearea>= 356+ BB 
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where BB is the total blocking buffer requirements for all files assigned to 
the job step. For compiling the previously listed standard JCL procedure 


using input and output files having physical record lengths of 256 words or 
less, a job extension area of 1000 words is adequate. For Phase 2, the re- 
quired jearea is also 1000. 

8.10.3 LUN ASSIGNMENTS 

Tables 8-20 and 8-21 list the logical unit assignments for the Phase 1 and 
Phase 2 FORTRAN compiler job steps, respectively. 


Table 8-20. FORTRAN Compiler Phase 1 LUN Assignments 


System error messages 


Any input/output printing device 


Source input Any input device/ file 


Output listing and Any printing device/file 


error messages 


Output to Phase 2 Output device/file 


System error messages Any input/output printing device 


Output listing and Any printing device/file 


Relocatable object out- Output device/file 
put 


Input from Phase 1 Any input device/file © 


8.10.4 OPERATION 


The FORTRAN compiler is a single-task program that runs under DX980 in 
the protected mode, The compilation of a FORTRAN program consists ofa 
2-step job: Phase 1 and Phase 2 compilations. Figure 8-10 provides a func- 
tional diagram of the FORTRAN compiler, including LUN assignments, 


The FORTRAN Phase 1 compiler first determines if the source input (LUN 5) 
is rewindable, If it is not rewindable, the compiler prints the message: 


READY INPUT, HIT C/R 
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ROL FORTRAN PHASE 1 
CON 
1. SYNTAX SCAN 
LUN O 
2. BUILD SYMBOL 


SOURCE LIST 
LUN 6 


TABLES 
3. ALLOCATE MEMORY 


4. SOURCE LIST WITH 
ERROR MESSAGES PSEUDO-OBJECT, 


5. OUTPUT PSEUDO- (CONSTANTS 
OBJECT AND LINKING 


NOTE: 

SYSTEM LOGICAL UNITS CORRESPONDING TO 
FORTRAN UNITS THAT HAVE BEEN USED INA 
FORTRAN PROGRAM MUST BE ASSIGNED TO 

| APPLICABLE PHYSICAL DEVICES BEFORE THE 
FORTRAN PROGRAM IS RUN. THESE SYSTEM 
RUN-TIME UNITS ARE LISTED IN THE FOLLOWING 
TABLE; 


FORTRAN RUN-TIME LOGICAL UNITS 


FORTRAN UNIT 


ERROR 
MESSAGES 


LUN O 


FORTRAN PHASE 2 
1. CREATE BASE PAGE 
CONSTANTS 
2. CREATE PAGING 
CONSTANTS 

3. OVERFLOW CHECK 
4. OUTPUT LINKABLE 
OBJECT 


PHASE 2 


INPUT 
LUN 8 


(A)130106 
Figure 8-10. FORTRAN Execution Functional Diagram 


When this message appears, the operator should ready the source 


on LUN O, 
Phase 1 then reads the 


device and then select a carriage return on LUN 0. 
source input and outputs an intermediate pseudo-object of tables and linkage 


If after the END statement of a subprogram Phase 1 


information to LUN 7. 
**) as the first two characters, 


encounters a record containing two asterisks ( 
it produces delimiting characters for Phase 2 and restarts itself to process 


an additional subprogram, This procedure compiles several subprograms 
with a single application of the compiler. Once Phase 1 encounters an End 
of File (EOF) record (minimally a /*), Phase 1 terminates and Phase 2 be- 


gins. 


The FORTRAN compiler Phase 2 determines if the intermediate object input 


is rewindable. If the input is not rewindable, the compiler prints the mes- 


sage: 
READY INPUT, HIT C/R 

on LUN 0. When this message appears, the operator should ready the input 

device (LUN 8) if necessary, and then select a carriage return on LUN 0. 


Phase 2 then reads the intermediate object and completes the compilation 


process, If no errors occur in this process, Phase 2 prints the message: 


COMPILATION COMPLETE 


on LUN 6, 
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The object code produced by 980 FORTRAN is in relocatable format suitable 
for input to the link editor, DXOLE, The program ID for the object mod- 

ule is taken from the name of the function or subroutine subprogram, The 
name cannot exceed six characters inlength, Ifitis less than six charac- 
ters, the name field is right filled with blanks. Those programs that are 

not identified as functions or subroutines are automatically named KMAINb. 
DXOLE does not recognize an IDT name beginning with 6 (blank space) within 
an Include control record, Therefore, DXOLE cannot access a main pro- 
gram produced by the FORTRAN compiler from within an indexed file by using 
the keyname. 


The object output from Phase 2 is ready for linkage editing with the FORTRAN 
library to acquire any library modules referenced in the program, The 
FORTRAN library contains a collection of commonly used subprograms typi- 
cally referenced by programs generated by the FORTRAN compiler. The 
library is provided to DX980 users in the form of a key indexed library file 
identified as (SYSTEM, USRFTN). Assign this library file to LUN 9 of the 
DXOLE job step for most efficient linking. The output load module from 
DXOLE may then be executed. The FORTRAN runtime package adds a value 
of B0,¢ to the LUN of all user I/O requests. For example, if a user pro- 
gram specifies an output for LUN 6, the JCL needed to execute the load mod- 
ule must assign LUN B6j¢ to the program. FORTRAN runtime error mes- 
sages (explained in paragraph 8.10.5) are printed on LUN 0. Therefore, the 
JCL procedure for executing any FORTRAN program must also assign LUN 0. 
The standard JCL procedures provided in paragraph 8.10.1, illustrate the 
assignment of LUN 0 for these error messages. 


8.10.5 ERROR CODES 


Error messages may originate from several sources in the FORTRAN com- 
pile, link and go sequence, Tabie 8-22 lists the error codes generated by the 
FORTRAN compiler Phase 1, Table 8-23 lists the error codes generated by 
the FORTRAN compiler Phase 2, Table 8-24 lists the error codes generated 
by the FORTRAN runtime library, These codes can be produced during the 


actual execution of the load module, 


Table 8-22. FORTRAN Compiler Phase 1 Error Messages 


Line- by- Line Messages 


Erroneous punctuation or illegally con- 
structed arithmetic expression, 


SYNTAX 


NUMBER 


A constant or label is too large or is in- 
correctly constructed. 
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Table 8-22, FORTRAN Compiler Phase 1 Error Messages (Continued) 


ID CONFLICT The identifier marked is being used ina 
context which contradicts a previous ex- 
plicit or implicit declaration, 


TYPE CONFLICT 


The identifier or expression marked is in 
conflict with another identifier or ex- 
pression, 


MODE The identifier or expression marked has a 


type in conflict with the context, 


SUBSCRIPTS The number of subscript expressions used 
in an array does not equal the number de- 


clared for the array. 


ALLOCATION A non-dummy variable has been given as an 
adjustable dimension, or a variable has 
been placed in COMMON more than once, 
or a dummy variable appears ina 


COMMON or EQUIVALENCE statement, 


The statement appears in the program ata 
point in violation to the stated rules govern- 
ing the order of appearance of statements in 
the program, 


The statement must have a label in order to 
be reached or referenced, 


MISSING LABEL 


The number of items in the data list ofa 
DATA statement is not equal to the number 
of items in the variable list, 


DATA COUNT 


BLOCK DATA 


An executable statement appears ina 
BLOCK DATA subprogram., . 


OVERFLOW The statement caused the compiler capacity 
to be exceeded, Compilation does not con- 


tinue, 


End-of-Compilation Messages | 


LABEL ERRORS 


Labeling a Do loop structure errors, The 
message is followed by a list of statement 
numbers, 


ALLOCATION ERRORS Memory allocation errors, The message 
is followed by a list of identifiers to which 
memory cannot be allocated, due to pro- 


gramming errors, 
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Table 8-23, FORTRAN Compiler Phase 2 Error/Termination Messages 


INCORRECT FORMAT 


The Phase 1 output contains a format error 
PROGRM OVER 
BSPAGE OVER 


The program exceeds Phase 2 capacity 


The base page exceeds the capacity allotted 


Ze | 
| | 


COMPILATION COMPLETE ; No errors encountered in either phase | 


INVALID CODE The Phase 1 output contains a code not 
recognized by Phase 2 
FIELD SIZE ERROR The IAL statement on the indicated line 
referenced a location that is not directly 
addressable, 
COMPILATION ABORTED - | Error encountered in intermediate object 
| PASS 1 ERROR input from Phase 1 | 
| ERRORS - COMPILATION | Errors encountered in Phase 2. | 
| ABORTED 
| PROGRAM END .| Phase 1 output successfully input to Phase | 


Table 8-24. Runtime Error Messages 
NOTE | 


The user program is terminated in all cases except 
the **WARNING** condition, 


ILLEGAL FORMAT Illegal character encountered in runtime 
ILLEGAL INPUT Illegal character encountered in input 
CHARACTER stream during READ execution, 
FORMAT PARENTHESIS Runtime format statement contains un- 

; ERROR balanced set of parenthesis, 


UNDER/OVER FLOW Real number in input stream or result of a 
floating point operation is outside range of 


numbers allowed, 


CHARACTER format statement, 
| 
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Table 8-24. Runtime Error Messages (Continued) 


**WARNING** RECORD User program attempting to input or out- 
SIZE ERROR put record containing greater than 132 char- 
acters, 


INPUT (OUTPUT, REWIND, I/O was attempted on a FORTRAN unit 


BACKSP, ENDFILE) UNIT greater than 7, 

LIMIT ERROR 

OUT OF DATA End-of- file encountered during a READ op- 
eration, 

ERR, OR WRTBIN Hardware error, or attempted operation is 

(WRTBCD, REDBCD, illegal on device specified, i,e., rewind 


REDBIN, ENDFIL, REWIND, card punch is illegal. 
BACKSP) COMM IGND ON 

UNIT) BO (1256s) OB 

ABORTED 


DIVIDE CHECK An attempt was made to perform a floating- 
point division by zero, 


8.10.6 SAMPLE INPUT 


Figure 8-11 illustrates input format for the FORTRAN compiler. 


@ 
e 
® 
f END | 
UBP 
** 
END | 


MAIN FORTRAN | 
PROGRAM 


(A)130399 


Figure 8-ll. FORTRAN Source Input to FORTRAN Compiler 
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8.10.7 SAMPLE OUTPUT 
Figure 8-12 illustrates output format from the FORTRAN Compiler, 


/* (EOF) 


(1701-1705 
RECORDS) 


IDT SUB1 


END (1706 
RECORD) 


(1701-1705 
RECORDS) 


IDT JMAIN 
(1700 RECORD) 


aa 


(A)130400 


Figure 8-12, Object Module Output from FORTRAN Compiler 


8.11 LOAD MODULE UPDATE (LMUPDT) 


This utility updates an unplanned overlay ona load module file, The new 
overlay must have been link edited as a subsystem using DXOLE, The rela- 
tive record file of the new overlay must contain a directory entry for the 
overlay, a dummy root phase, and the new overlay, Use the following con- 
trol cards for DXOLE: 


b SUBSYSTEM OVLY Subsystem Mode, Overlay 
b ROOT MAIN, Dummy Root Phase 
b SEGMENT 1 Level 1 Overlay 
Object Deck Overlay 1 
b SEGMENT i Level i Overlay 
Object Deck Overlay 2 


(listing continued on next text page) 
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(listing continued from previous text page) 


b SEGMENT 1 Level 1 Overlay 
Object Deck Overlay n (n Load Modules to be Updated) 
/* End of File Terminates DXOLE Input 


8.11.1 STANDARD JCL PROCEDURE 
The following listing is a standard procedure for LMUPDT: 


0% CREATE LMUPDT,COMMENT, "LOAD MODULE UPDATE * 

/REPLACE LMUPOT e LOAD MODULE UPDATE . 

/EXEC OBJs(1,SYSTEM+LMUPDT) MEMS(390,59009,508) PRTY™(3,1)3 

/ TIMEse! MEM3aMEM PRTYssPRI TIMEssTIM : 

/ASSIGN 4 SC DEVICE: sOMSG » SYSTEM MESSAGE 
ASSIGN § SC — DEVICEssDCON FILEssFCON BUFFERS#1 p CONTROL INPUT 
/ASSIGN 6 DISC1 DEVICEssOLM FILEseFLM BUFFERS#1 p LOAD MODULE INPUT 
/ASSIGN 7 DIS8Ci DEVICE: s0UPD FILEssFUPD BUFFERS#1 - UPDATE FILE 

7END 

o% CREATE LINKUP,COMMENT, "LINK MOD AND UPDATE L M FILE* 

/REPLACE LINKUP e LINK MODULE AND UPDATE LOAD MODULE FILE . 

/EXEC OBJs(1,SYSTEM,DXOLE) MEM=(309,12908,3000) PRTY#(1,1)}3 

/  TIMEsel MEM3 sMEML 

/ASSIGN 1 DUMMY DEVICEssD0BJ FILEssFOBJ BUFFERSs2 . SECONDARY OBJ IN 
/ASSIGN 5 DISC1 DEVICEssDIN FILEssFIN BUFFERS#1 . PRIMARY INPUT/CON 
“ASSIGN 6 SC DEVICE: sDLST FILE:sFLST BUFFERS&=1 ~ LOADMAP ILIST/ERR 
/ASSIGN 8 DISC1 FILE#(TEMP,LM) NEW BUFFERS#®{ RELREC LRECL&643 


/ ACCESS®(ANY,ANYSANY,ANY) ALLOCATE8(10,300,32,10) . LOAD MND OUTPUT 
/ASSIGN 9 DISC1 DEVICErsDPLX FILEs(SYSTEM,USRPLX) FILE@sFPLX3 


/ BUFFERS#2 . PLEXUS | IBRARY 
/ASSIGN 186 DISC1 FILES(TEMP,SCRL) NEW DELETE BUFFERS#1; 

/ LINKSEQ ACCESS=(ANY,ANY,ANY,ANY)} ". LINKSEQ SCRATCH 
/ _ ALLOCATE#®(10,308,256,30) 

7ASSIGN 11 DISC! DEVICE: sDEXT FILEs(SYSTEM,DXEXTD) FILE@sFEXT? 

/ _ BUFFERS#1 . SYSTEM EXT DEFS 
/ASSIGN 13 DISC1 FILE®(TEMP,SCRR) NEW DELETE BUFFERS#1 RELREC} 

/. ACCESS*(ANY,ANY/ANYSANY) ALLOCATE®#(10,300,128,10)3 

/ LRECL#10@ " RELREC SCRATCH 
/EXEC OBJe(1,SYSTEM,LMUPDT) MEM®(390,3000,520) PRTY#(1,1)3 

/ TIMEse1 MEMseMEMU 

/ASSIGN 4 SC DEVICE: s0MSG * SYSTEM MESSAGE 
/MSSIGN 5 SC DEVICES #0CON SHARE? sSCON * CONTROL INPUT 
ASSIGN 6 DISC! FILESC(TEMP,LM) BUFFERS1 . LOAD MODULE INPUT 
PASSION 7 DISC1 DEVICE:sDUPD FILEssFUPD BUFFERSS! ~ UPDATE FILE 
/END 


8.11.2 MEMORY PARTITION REQUIREMENTS 
The memory requirements for the update utility are: 


MEM=(500, 12000, 4000). 


8.11.3 LUN ASSIGNMENTS 
LUN assignments for LMUPDT are given in table 8-25. 
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Table 8-25. LMUPDT Logical Unit Assignments 


Error messages 


Control record input 


Cn wm 


| Load module input file 


| | - Load module file to be updated | 


8.11.4 OPERATION 


—~] 


One control record must be input for each load module to be updated. The 
control record contains only a base 10 value of the Memory Image Phase 
(MIP) to be updated, The value is obtained from the DX980 system link load 
map listing. To find this value, scan the load map listing for the IDT name 
of the module to be updated, The base 10 value of the MIP number for this 
overlay is entered, left justified, on the control record as the base ID. 

After the updates have been made, perform the Initial Program Loading (IPL) 
procedure to bring the modified load module dictionary into memory, This 
procedure is described in the DX980 System Operation Guide, Part Number 
943004-9701. 


8.11.5 SAMPLE INPUT 
A typical format for input on LUN 5 is as follows: 
Control Record for Overlay l 


Control Record for Overlay 2 


Control Record for Overlay n 


/* Terminates Control Record Input 


8.12 SOURCE MAINTENANCE ROUTINE (SMR) 


The DX980 Source Maintenance Routine (SMR) maintains source libraries for 
large software projects. The SMR keeps a history of changes made toa 
source library by recording the change level for each record within a pro- 
gram in the library, for each program in the library, and for the library it- 
self. The SMR can access any version (through all change levels) of any pro- 
gram in the library. It can be used for either batch or interactive applica- 
tions, and has commands that create a new program on the library, modify 
an existing program in the library, and that delete, list or extract programs 
in the library. The SMR can also produce an index of all the programs in the 
library. 
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8.12.1 STANDARD JCL PROCEDURE 


The following listing is a standard procedure for SMR: 


«# CREATE SMR 
/REPLACE SMR 


sCOMMENT, "SOURCE MAINTENANCE ROUTINE ® 
e SOURCE MAINTENANCE ROUTINE , 


/EXEC OBJs(1,SYSTEM,SMR) MEMs(309,11509,5980) PRTYs(1,15)3 


a TIMES] MEMS eMEM . 
/ASSIGN 9 8¢ DEVICE: sDMSG " ERROR/USE 
/ASSIGN 4 8¢ DEVICEssDCON FILEssFCON BUFFERSS1 control axe 
/ASSIGN 6 DUMMY DEVICEssOLST FILE:sFLST BUFFERS®! > LISTING 
ZASSIGN o45 MT$ = DEVICEs=DOLD FILEtsFOLD BUFFERS®1 LINKSEQ ~~ OLD LIBRARY FILE 
/ASSIGN 222 DUMMY DEVICEss0COM FILEssFCOM REPLACE! #RCOM} 
: Peevenee! LINKSEQ ACCESSsC(CANYSANYSANYSANY)S 

ALLOCATES #LCOM M 
/ASSIGN 225 DUMMY DEVICEssONEW FILEtsFNEW REPLACES sRNEWS se 
/ BUFFERS#1 LINKSEQ ACCESS#(ANY,ANY,ANYsANY)3 
/ ALLOCATE: *LNEw ". NEW LIBRARY F 

: ILE 

/ASSIGN 226 DUMMY - JCL UPDAT CON OUT 
/ASSIGN o35 DUMMY DEVICESsDEV35 FILE:"FIL35 BUFFERS=2 . INCLUDE t.UN OPT 14 
fe 245 DUMMY DEVICE: sDEV45 FILE: ®FIL45 BUFFERS#2 . INCLUDE LUN OPT 2 
/ 


8.12.2 MEMORY PARTITION REQUIREMENTS 


SMR memory requirements are defaulted in the standard procedure to the 
following: 


MEM=(300, 11500, 2000) 


8.12.3 LUN ASSIGNMENTS 


The logical unit numbers that must be assigned for SMR are provided in 
table 8-26. In addition to these standard required LUNs, any other LUNs 
can be assigned to SMR and accessed by the include option. 


NOTE 


All LUN assignments for SMR, unlike most utilities, 
are hexadecimal numbers, 


8.12.4 OPERATION 


SMR executes in either an interactive or a batch manner depending on the type 
of device used for command input. No special command is required since 
SMR determines the manner of processing from the attributes of the command 
LUN. Error processing is the main difference between the two operational 
types. When executing interactively almost no errors are fatal. The error 
message is output to the interactive device (in addition to the listing device), 
and the user can re-enter the command. When batch processing, however, 
some errors are fatal and some are logical. Logical errors allow recovery. 
See section 8.12.5 for a description of SMR error codes. 
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Table 8-26. SMR Logical Unit Assignments 


Operator Console Used only as explained in discussion of 
Messages "| #PAUSE" command, 


Command Input If assigned to an input/output device cap- 
(Logical/ fatal able of printing, SMR executes in an inter- 
error messages 
if interactive de- 
vice) 


active manner; if assigned to an input- 
only device/file, SMR executes in a batch 
manner, If assigned to DUMMY, the SMR 
assumes that the first command is 
".#UPDATE *COPYLIB". (See discus- 


sion of UPDATE mode command,) 


nar 


Any sequential device/file. SMR uses 

this LUN to list all submitted commands, | 
for messages, and for listings of programs 
and indexes of the library as described in | 
discussion of '', #LIST", ", #LSTALL", 

and '', #INDEX"' commands, If LUN 4 is 
assigned to an interactive device and LUN | 
6 is assigned to DUMMY, then all ante 


Tomi 


6 Listing 
| 
| 
| and the output caused by "', #LIST' 
| "' #LSTALL, and "',# INDEX" = Sraranu 
are written to LUN 4, Therefore, LUN 6 
may be assigned to DUMMY unless a hard 
copy of the processing performed is de- 
sired, 
Olid Library File Any rewindable sequential device/file, 
| Must be assigned to DUMMY if OLDLIB 
| is not being used. 


Any sequential device/file. This file is 
the output LUN for all '', #COMPILE'" 
commands and for ', #MODIFY'"' com- 
mands if in EXTRACT mode (as discussed 
later). 


File 


| New Library File Any rewindable sequential device/file, If 
running SMR in EXTRACT mode (as dis- 
cussed later), this LUN is not used and 
may be assigned to DUMMY. Otherwise 
this file is theoutput LUN when any change 
are made to a program on OLDLIB; ali un- 


modified programs are copied unchanged, 


2516 


| 
| 
| 
| 
2216 | Compile Output 
| 
| 
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Table 8-26. SMR Logical Unit Assignments (Continued) 


2614 | Scratch File Used in JCL installation procedure only. 
LUN 26 must be assigned to DUMMY for 
general use of SMR. 


All modules that comprise a project reside in a source library (OLDLIB). 
OLDLIB is a sequential data set with rewind capability, either a linked se- 
quential file or a magnetic tape, The directory entry for each program in 
the library contains such information as module name, revision level, a 
descriptive title, a general comment field for any other information the user 
may desire to include, and the language in which the module is written (e.g. 
PLEXUS, SAP, FORTRAN, etc). All SMR commands that reference existing 
library programs read from OLDLIB, the input source library. Whenever 
a library program is to be modified or a library program added, a new 
source library data set (NEWLIB) is created. OLDLIB is not modified, 
NEWLIB is a copy of OLDLIB except for the modifications made via SMR 
commands, NEWLIB has a revision level one greater than OLDLIB and all 
programs modified have as a latest change level the revision level of NEWLIB. 


Source programs can also be copied from OLDLIB to a compile file; that is, 
a sequential file suitable for input to a compiler or assembler, The compile 
file is useful when a copy of a program is desired but no permanent changes 
are being made. 


Functionally, SMR can be operated in three modes: Extract, Update and 
Verify, The mode to be used is determined when the first command is read 
and cannot be changed after that point. The following paragraphs describe 
each of the modes, 


8.12.4.1 UPDATE MODE, In Update mode, SMR assumes that no output is 
to be made to the compile file. SMR reads from OLDLIB and writes to 
NEWLIB. If OLDLIB does not exist (a new library is being built), then the 
logical unit for OLDLIB (LUN 15 )¢) must be assigned to DUMMY. Whenin 
Update mode, SMR requires that the programs in the library be in alphabeti- 
cal order. Whenever it adds a new program to a library, it first copies any 
existing programs from OLDLIB that alphabetically precede the new program 
(sorted by the name assigned to the program when it was created in the li- 
brary). Furthermore, all SMR commands that reference programs in 
OLDLIB must reference those programs in alphabetical order, Any pro- 
grams in OLDLIB that are not specifically referenced in the command are 
copied to NEWLIB unaltered, Ifa program is referenced out of order, SMR 
will search to the end of OLDLIB without finding the program and will not 
rewind OLDLIB to find the program (rewinding OLDLIB would create multi- 
ple copies of programs from OLDLIB in NEWLIB). 
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8.12.4.2 VERIFY MODE, When operating in Verify mode, SMR assumes 
that no output is to be made to the compile file. NEWLIB may not be as- 
signed to DUMMY. This mode verifies that a new library (NEWLIB) was 
generated without I/O errors, SMR commands operate the same in this 
mode as in Update mode, except that SMR does not write to the output Li- 
brary, NEWLIB. Instead, SMR reads NEWLIB and compares it to verify the 
contents of the record, 


8.12.4.3 EXTRACT MODE, In Extract mode, SMR assumes that no new 
library is being created. All commands, except .# CREATE and 

.# DELETE, have meaning as discussed later in this description, Refer- 
ences to programs in OLDLIB do not need to be in alphabetical order since 
SMR rewinds OLDLIB to search for the programs when in Extract mode, 
However, SMR is more efficient if references are alphabetically ordered, 


8.12.4.4 SPECIFYING UPDATE MODE, To use the Update mode, the 
first command to SMR must be one of the three following commands: 


-#UPDATE 
.# UPDATE *COPYLIB 
oe UPDATE *DH*'<rl>', 


The first command (,# UPDATE) activates the Update mode as previously 
described with no modifications, 

The second command (,#UPDATE *COPYLIB) instructs SMR to copy 
OLDLIB without changes to NEWLIB. Specifying this option prevents SMR 
from incrementing the library revision level, and produces an exact dupli- 
cate of OLDLIB in NEWLIB. This option replaces the DXCOPY utility for 
copying SMR libraries since DXCOPY cannot handle the large size logical 
records (up to 3600 characters) that SMR writes. If the command input de- 
vice (LUN 4) is assigned to DUMMY, then SMR assumes that the first input 
command is ,.#UPDATE *COPYLIB. If the *COPYLIB option is specified, 
SMR does not request further input. 


The third command (,#UPDATE *DH*'<rl>',) instructs SMR to Destroy 
History. The symbol<rl>represents a 2-character code supplied by the 
user for a revision level indication, The command must appear exactly as 
it is shown to correctly specify the Destroy History option, When SMR re- 
ceives this command, it does not write any record onto NEWLIB that was 
deleted previous to the specified revision level (<rl>). Refer to the discus- 
sion of , #MODIFY and .#DELETE commands for an explanation of the de- 
leted records, 
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8.12.4.5 SPECIFYING VERIFY MODE, To use the Verify mode, the first 
command to SMR must be one of the three following commands: 


.# VERIFY 
.4 VERIFY *COPYLIB 
.4# VERIFY *DH*'<rl>', 


The options in the above commands are the same as those previously de- 
scribed for the ,#UPDATE command. To run SMR in the Verify mode, use 
one of the ,# VERIFY commands as the first command, Any options used in 
this command must be the same options as specified in the ,#UPDATE com- 
mand used to create the NEWLIB that the command is verifying. Following 
the initial command should be the same sequence of commands that followed 
the ,.# UPDATE command (excluding the .# UPDATE command), Similarly, 
the LUN assignments for OLDLIB and NEWLIB should be exactly the same 
as those used to create the NEWLIB. 


8.12.4.6 SPECIFYING EXTRACT MODE, To specify Extract mode, the 
first command may be any valid .#xxxx command except those commands 
used to specify the Update and Verify modes. The following two commands 
specifically designate the Extract mode: 


-# EXTRACT 
. # EXTRACT *SEQ 


The term, *SEQ, specifies a sequencing option used with the , #LIST, 
.#LSTALL, and .# MODIFY commands. Refer to the discussion of the 
.# LIST command for a description of this option, 


8.12.4.7 CREATING A NEW MODULE ON NEWLIB, The command to 
create a new module on the new library tape is: 


. #CREAT Exname>, <languages, <title>, <comment>, 
The user specified fields are defined as follows: 


@ <name> - name to be assigned to the module. This is the name used 
to reference the module in any other command. Limited to 9 char- 
acters. 


e <language>- source language of the module. 
Languages recognized include: 


a) SAL - 960 Assembly Language Source . 
b) SAP - 980 Assembly Language Source 
c) OBJECT - Object Decks 

d) FORTRAN 
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e) FORT - Alternate Identifier for FORTRAN 

f) COBOL 

g) XPL 

h) PLEXUS - Specifies PLEXUS language 

i) PLl- Specifies PL/I language 

j) ASM - S/360 Assembly Language Source 

k) ALGOL 

1) COMMENT - module containing USASCII source records for 
comment only. 


e <title> - a quoted string, limited to 36 characters, that provides a 
more descriptive title than the 9-character name. 


@® <comment>- a quoted string, limited to 20 characters, that can 
hold any additional information such as programmer, author, pro- 
ject name, etc. 


When the CREATE command is invoked, all programs in OLDLIB (if any) 
that alphabetically precede the current program are first copied to NEWLIB. 
If a program with the specified name already exists in OLDLIB an error is 
declared. The commands that follow this command normally define the de- 
sired contents of the new module. Two different commands can follow a 

.# CREATE, They are: 


1) ./INCLUDE <lun>,<lun>,... 


Includes 80 character records (64 if the specified language name is 
OBJECT) from the specified <lun> until an end-of-file is read, 

The <lun>is not rewound before input. A .#REWIND command 
should be used to rewind the<lun>if desired. More than one 

. /INCLUDE command may be used. The <lun> may be a decimal 
number, or a hexadecimal number prefixed by a ">" (greater than) 
or a "#'' (pound sign), Any number of<luns> may be specified. If 
the language name is OBJECT, the contents of the module must be 
inserted using ./INCLUDE commands since no object records may 
be encountered in the command input stream. 


2) <Any record from the command input stream that does not have a 
',#' or ',/' in column 1 and 2 is interpreted as part of the module 
definition. The definition is completed with either another . # com- 
mand or an end of file in the command input. 


8,12.4.8 MODIFYING A PROGRAM ON OLDLIB, The command to begin 
modification of a program on OLDLIB is: 
-#MODIFY # <name>. 


or 


-#MODIFY <name>,<language>,<title>,<comment>. 
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The <name> field represents the name of the program to be modified, If the 
program is not defined on OLDLIB, an error condition exists and the com- 
mand is terminated. The<language>,<title>, and <comment> fields are op- 
tional, They need only be supplied to change those fields on the program 
header record that SMR maintains for the program and that are displayed 
for each program when a .#INDEX command is processed, If any one of 
these three fields is specified, then the field (or fields) preceding it must 
also be specified. For example, to change the title, the .#MODIFY com- 
mand must specify the name, the language and then the title. 


If in Update mode, then the resulting program image is written on NEWLIB. 
If in Extract mode, the resulting program image is written to the compile 
file. When the .# MODIFY command is invoked in Update mode, all pro- 
grams in OLDLIB that alphabetically precede the specified program are first 
copied to NEWLIB. More commands are then input to define the new pro- 

r] gram contents. Four different commands can follow a .4MODIFY com- 
are: 


1) @NNNNN. 


This command is the Insert After command, This command copies 
from OLDLIB all records in the program up’to and including record 
number NNNNN. The number, NNNNN, should be a decimal num- 
ber (leading zeroes not required). (The .# LIST command descrip- 
tion discusses sequenced listings of a program in OLDLIB,. The 
sequence numbers given by such a listing are the appropriate num- 
bers to use for NNNNN,) When the records have been copied (to 
NEWLIB if in Update mode or to the Compile File if in Extract mode) 
then a new command is read to continue defining the new program 
contents, 


2) @NNNNN, MMMMM. . 


This command is the Delete Records command, This command per- 
forms the following functions: 


e Copies all records of the program from OLDLIB up to and in- 
cluding record number NNNNN-I, 

® If in Extract mode, it reads and discards all records up to and 
including record number MMMMM from OLDLIB. 

e If in Update mode, it reads and marks as deleted (at the revision 
level of NEWLIB) all records up to and including record number 
MMMMM and then writes the records to NEWLIB. SMR does 
not delete these records; it only marks them 'deleted', In this 
way SMR can reproduce the image of a program in the library 
exactly as it appeared at any previous revision, 
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3) ./INCLUDE <lun>,<lun>,... 


This command operates the same as explained in the discussion of 
the ,.#CREATE command, 


4) Module Definition, 


Any record from the command input stream that does not have an 
"@' in column 1, ora '",#"'" or ",/" in columns 1 and 2 is inter- 
preted as part of the module definition, It is inserted into the com- 
pile file or NEWLIB immediately, The module definition is com- 
pleted when either a ''".#'' command or an End-of-file is encountered 
in the command input stream, 


If an '@NNNNN,'' command is encountered after record NNNNN+1 has been 
read from OLDLIB, then an error message is output and the command is ig- 
nored, Similiarly, ifa "@NNNNN, MMMMM," command is encountered after 
record NNNNN has been read from OLDLIB, then an error message is given 
and the command is ignored, 


If in Extract mode and the '*SEQ" option was specified in the ',#EXTRACT'"! 
command, then columns 73 through 80 of the record are modified before being 
placed in the Compile File. The modification is as follows: 


1) If the record was not previously in OLDLIB (inserted into the com- 
mand stream or via a '. /INCLUDE" command), then columns 73 
through 80 are blanked, 

2) If the record was in OLDLIB previously, then columns 73 and 76 
are blanked, columns 74 and 75 contain the 2-character revision 
level that represents the revision level of the library when the rec- 
ord was added, and columns 76 through 80 contain a 4-digit (decimal) 
sequence number, 


8,12.4.9 COMPILE, The format of this command is: 


<name> 
. # COMPILE xk : 


This command moves records to the compile file when no editing is required. 
Only one of the three options may be specified, If not in Extract mode, then 
use of the ''/*'' option causes the command to be ignored and use of either 
<name>or * options produces a logical error message output and the com- 
mand is then ignored. . 


The user supplied parameters are interpreted as follows: 


e <name>- Name of a module to be copied from OLDLIB to the com- 
pile file. 
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a * - Records are to be copied directly from the command input into 
the compile file until a '',#'' command or an end of file is encountered, 


® /* - Write an end of file in the compile file. An end of file is auto- 
matically written on the compile file when SMR terminates, This 
command permits the user to build compile files with more than 
one end of file, 


To obtain a copy of a module in OLDLIB as it was at a revision previous to 
the current revision of the module, a second option may be added to the 
<name> option as follows: 


.# COMPILE < names, *'<rl>'. 


The notation<name>is the name of the module and<rl>represents a 2- 
character revision code for the desired revision level, The allowed revision 
character codes with interpretation are: 


x - 0 
*A = ] 
7, = 26 
AA = 27 
AZ = 52 
ZZ, = (02 


The * and quote marks are required to correctly specify the revision level 
option, 


8.12.4.10 DELETE, The command for designating modules as deleted 
from the library is: 


. #DELETE < name>,<name>,... 


If in Extract mode, this command is ignored, Otherwise, each module 
named is located in OLDLIB and then the header record is marked ''deleted", 
After marking the header record, SMR marks all previously non-deleted rec- 
ords as being "deleted" at the revision level of NEWLIB. All records (in- 
cluding the header record) are copied to NEWLIB. This "deletion" prevents 
the module name from appearing when an Index (as discussed later) is done, 
All subsequent references to the module name result in an error unless the 
command that references the module name also contains the necessary op- 
tions to specify that the revision level desired is previous to the "deletion" 
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of this module. However, if a ,.#CREATE command is later used and the 
name given matches the name of a previously deleted module, then the header 
record and module name are reactivated, all the previously deleted records 
are copied, unaltered, to NEWLIB, and then the next command is read to 
start defining the module's contents. The source language of the new module 
must be OBJECT if and only if the source language of the old module was 
OBJECT, 


.#LIST < name>,<name>,... 


This command lists the source records in the modules specified. The mod- 
ules referenced must always be on OLDLIB. If in Extract mode and the 
"*SEQ' option was given on the", # EXTRACT" command, then columns 73 
and 76 are blanked, columns 74 and 75 have the 2-character code for the 
revision level of the module when the record was created, and columns 77 
through 80 contain a 4-digit (decimal) sequence number. 


To get listings of certain modules as they appeared at a revision previous to 
their latest revision, the revision level may be specified as in the following 


example: 
.#LIST NAME], *'*A', NAMEZ2, NAME3, *'BZ', NAMEA, *!', 
This example generates a listing of: 


1) Module NAME] as it appeared at revision *A 

2) Module NAMEZ as it appears at the current revision 

3) Module NAME3 at revision BZ 

4) Module NAME4 at revision ** (when the library was first created. 


8.12.4.12 LIST ALL, The command for listing all modules in OLDLIB 
(except those with source language OBJECT) is: 


PIES TAU: 


This command is invalid unless in Extract mode, Every non-OBJECT mod- 
ule in OLDLIB will be listed on LUN 6. However, if LUN 4 is assigned to an 
interactive device and LUN 6 is assigned to DUMMY, the listing appears on 
LUN 4. The *SEQ option on the .# EXTRACT command has the same effect 
when the .# LSTALL command is used as for the . #LIST command, 


8,12.4,.13 REWIND LUN, The command to rewind one or more logical 
units is: 


. #REWIND <lun>,<lun>, ---. 
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The notation may be a decimal number, or a hexadecimal number prefixed by 
a'>' ora '#', This command can be used to rewind a< lun>referenced ina 
. /INCLUDE command, 


8.12.4.14 INDEX. The command for listing a library index is: 
. #INDEX 


The .#INDEX command lists on LUN 6 a catalog of all the modules on the 
library tape. However, if LUN 4 is assigned to an interactive device and 
LUN 6 is assigned to DUMMY, the listing appears on LUN 4. If the 
.#INDEX command is input after records are written to NEWLIB, then 

the new library will be indexed when the . #ENDALL command is entered to 
terminate SMR. Two possible options may be specified with the . #INDEX 
command (but only one ata time). The first: 


. FINDEX *'<rl>! 


causes SMR to produce an index of the library as it appeared at the revision 
specified by the 2-character revision code represented in the example by <rl>. 


The second: 
-#INDEX *TH (Note the lack of quotes) 


causes SMR to produce a listing of the library header records for all pre- 
vious revisions of the library (beginning with the most recent and going back- 
wards). This option is useful if the library header information has been 
changed in previous revisions via the .#TAPE command, 


8.12.4.15 TAPE, The command for creating a library header record is: 
.#TAPE '<title>', '<part number>', '<date>', *'<revision level>'. 


The user specified fields are defined as follows: 


e <title>- a quoted string, limited to 26 characters, that is the name 
of the source library. 


@ <part number>- a quoted string, limited to 12 characters, to be 
used to document the part number the source library was released 
under. 


e <date>- a quoted string, limited to eight characters, used to docu- 
ment the date the source library was generated, 


@e <revision level>- a quoted 2-character string indicating the revision 
level of NEWLIB.. If not specified, NEWLIB will have a revision 
i level which will be the next sequential alphabet character; i.e. *B if 
OLDLIB was *A. 


The .#TAPE command is optional and need only be specified the first time 
that a new library is generated or to change the title, part number, or date on 
the library header record for the next revision of the library, This command, 
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if used, may be preceded only by ,#PAUSE, .#INDEX, .#UPDATE, and - 
o# VERIFY commands, 


8,12.4.16 PAUSE. The command to write a message to the operator's 
console is: 


. # PAUSE'<message>', 
This command writes the quoted string on LUN 0. Processing is continued 
when a response (carriage return or end of file) is entered on LUN 0. 
8.12.4,.17 ENDALL, The command for terminating SMR is: 

. #ENDALL 


An end of file on LUN 4 also terminates SMR. If a - #INDEX of NEWLIB has 
been specified, it is processed when the copy from OLDLIB to NEWLIB is 
completed. 


8.12.5 ERROR CODES — 
Error codes for SMR are output to the listing device (LUN 6) and in the inter- 
active mode, to the interactive command device (LUN 4) as well. In the in- 


teractive mode, only two errors are considered fatal, Unlimited user retry 
is normally allowed. In the batch mode, errors are classified as fatal, (i.e. 


abortive to the job) or logical {i,e. program recoverable). Logical errors 


for batch mode include invalid LUN, missing arguments, unmatched quota- 
tion mark, etc. In these cases the field is either skipped, assumed to bea 
blank, or assumed to be terminated by quotation mark in column 81. 


The two fatal errors for both SMR batch and interactive modes are: 


e Specifying Update or Verify mode with NEWLIB assigned to 
DUMMY. 


6 Specifying (or defaulting to) Extract mode with OLDLIB assigned to 
DUMMY. 


The two fatal errors for SMR batch mode are: 
e Referencing a file name that does not exist in the old source library 


e Exceeding 100 logical errors, 


8.12.6 SAMPLE OUTPUT 


The following paragraphs contain examples of the use of SMR. 
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8.12.6.1 CREATING A NEW LIBRARY TAPE IN BATCH MODE, The JOB 
and RUN commands for this execution are: 


/JOB S SYSTEM 
/RUN SMR DOLD=DUMMY DNEW=MT1 DCONE=CRI; 
/DMSG=SC DLST=LP1 DCOM=DUMMY. 


The control cards and statements defining the modules are shown in figure 
8-13, Figure 8-14 shows the index of NEWLIB at the termination of SMR. 


SOURCE MAINTENANCE ROUTINE 


e#UPDATE 
eM TAPE ‘SMR EXAMPLES!, '123456e7800!',104/10/75!,atwat 
eMCREATE EFF330,FORTRAN, 'COMPUTE D&S33@ DISC EFFICIENCY', 
WRITE (6,308) 
308 = FGRMAT(1H1,3X, 13HRECORDS/TRACK » 4X, 14HSECTORS/RECORD, 
$1 @X,12HWORDS/RECORD,2X,{@HUSEFUL WORDS/TRACK, 
2 2X,1OKEFFICIENCY) 
DO 1du ISECR # 1,88 
MC & (CISECR#1221,00677,8)#32,09/(34,0016,8) 
IWRDR ® WC/32 
TWRDR ® TWRDR*32 
IRECT #® 88/ISECR 
TUSWT & IRECT#eIwROR 
EFFe (IUSWT#i0Hn.4)/6724,¢g 
ige ARITE (6,200) IRECT, ISECR,IKRDR, IUSWT,EFP 
206 aon 1/09XeT 501 BXeTS, 10%, 15,1 3X 515 ,9X0F 8,2) 
0 


END 
o#CREATE SMREXAMPLE,COMMENT,'SMR EXAMPLE # 2 ','NO COMMENT! 
THIS 18 ORIGINAL RECCRD «# 
THIS 18 ORIGINAL RECORD 
THIS 18 ORIGINAL RECORD »# 
THIS 18 ORIGINAL RECORD «# 
THIS JS ORIGINAL RECORD # 
THIS 18 ORIGINAL RECORD # 
THIS 18 ORIGINAL RECORE # 
THIS 18 ORIGINAL RECORD «# 
THIS 18 ORIGINAL RECORD 
THIS 318 ORIGINAL RECORD 


*O OND OF & Ui hp 


o# INDEX, 
PFLAG SET TO INDEX NEw LIBRARY 
e#ENDALL, 


Figure 8-13. SMR Batch Input to Create a New Library 


PART NO.#12345607898 REVee*e DATES44/19/75 TITLESSMR EXAMPLES 


NAME REV LANG TITLE COMMENT 


EFF 33u #* FORTRAN COMPUTE D&330 DISC EFFICIENCY 
SMREXAMPL ## COMMENT SMR EXAPPIE &# 2 NO COMMENT 
2 FILES ON NEW LIBRARY 


Figure 8-14, Index of NEWLIB 
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8.12.6.2 GETTING A SEQUENCED LISTING OF A MODULE, Figure 8-15 
shows the commands entered to get a sequenced listing of a module in 
OLDLIB and the resulting list. The JCL to run SMR for this example is: 


/JOB S SYSTEM 
/RUN SMR DNEW=DUMMY DOLD=MT1 
/DCON=SC DLST=LP1 DCOM=DUMMY 


PART NO, 812345687899 REVeee DATES®%4/1G/75 TITLESSMR EXAMPLES 


e#EXTRACT wSEQ 
e#LIST SMREXAMPLE , 


NAME REV LANG TITLE COMMENT 

SMREXAMPL #* CUMMENT SMR EXAFPLE # 2 NO COMMENT 
THIS 18 ORIGINAL RECORD # { ee gpa! 
THIS 18 ORIGINAL RECORD # 2 ¢* 3002 
THIS 18 ORIGINAL RECORD @ 3 st 9083 
THIS 18 ORIGINAL RECORL # 4 eo 9004 
THIS 18 ORIGINAL RECORD # 5 #* 2005 
THIS 18 ORIGINAL RECORD # 6 #* 9006 
THIS 38 ORIGINAL RECORD # 7 e¢ 9097 
THIS 1S ORIGINAL RECORD # 8 ee 3008 
THIS 18 ORIGINAL RECORD # 9 ee 9729 
THIS 18 ORIGINAL RECORD # 18 e* gel 


o#ENDALL 


Figure 8-15, Sequenced Listing Commands and Listing 


8,12.6.3 ADDING A MODULE TO GET A NEW LIBRARY, Figure 8-16 
shows the command input stream used to add two modules to the library. 
Figure 8-17 shows an index of the new library. Note that the modules have 
been inserted in alphabetical order, 


8.12.6.4 MODIFYING A MODULE, Figure 8-18 shows the command input 
stream to modify a module in the library. Figure 8-19 shows an Index of 
the new library generated, 


8,12.6.5 THE SEQUENCED LISTING OF THE MODIFIED MODULE,  Fig- 
ure 8-20 shows the command input stream used to get a sequenced listing of 
the module modified in example 8, 12.6.4, as well as the sequenced listing 
of that module. 
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PART nOQ,® 


e#UPDATE 
e#CREATE 


DECLARE 


EDITOR: 


12345607899 REVSes DATES%4/18/75 TITLE @SMR EXAMPLES 


EDITOR, PLEXUS, "CHARACTER FDITOR PROGRAM!, 


/* $C $8 $B $A «/ 
EDITOR PROCEDURE CHARACTER, 
CINSTRN,OTSTRN,NWSTRM) CHARACTER(86)) 
INSTRN wt ty 
DO WHILE SUBSTRCINSTRN,4,2) aw 'SS'9 
INSTRN # INPLT) 
NWSTRN # EDITORCINSTRN,'JLD!,'JLX')2 
OUTPLIT = NWSTRNJ 
END? 
PROCEDURE CINSTRING-VICTI“,VICTOR)? 
DECLARE CINSTRING,RESULT) CHARACTER(88), 
(VICTIMs,VICTCR) CHARACTER, 
I FIXEDC16)3 
RESULT © INSTRING} 
I 28 g) 


DO WHILE I<s(LENGTHCINSTRING) » LENGTH(VICTOR)) & 
I<e(LENGTHCINSTRING) = LENGTH(VICTIM)) & 


(I < 108)5 


IF VICTIM # SURSTRC(TNSTRINGsT,/1*LENGTH(VICTIM)) THEN 


RESULT # SUBSTRCINSTRING,O,IIIIVICTORII 


SUBSTPCINSTRING, LOLENGTH(VICTIM) )3 


RETURN RESULT) 


END EDITOR) 


EOF 
eo #CREATE 
ID 


SEEK, SAP,'OS833@ INDEPENDENT SEEK TEST!, 
T [STEST 


HED DS33A INDEPENTENT SEEK TEST 
svc OPD 2C3648,3 
START EQu §& 
cKi Eau $ 

TMBZ BUSY,PRBI 

BRU CK? 

BRU RBUFI 
CK2 EQU § 

TMBZ BUSY,PRB2 

BRU CKi 

BRU RBUF2 
RBUF1 SMBZ WRITE,PRBI+41 


DL 
DA 


D PRBL+4 
D INC 


DST PRB4i44 
@LDM sPRBI 
BRU GO 
RBUF2 SMBZ WRITE,PRH261 
DLD PRB2e4 
DAD INC 
DST PRB2S4 
@LOM SPRB2 
60 -8VC @ 
BRU CK 
PRB1 DATA 5,»8017,32,BUF1,0,8 
WRITE E@U 45 
BUSY E@u 9g 
INC DATA @,88 
PRBOQ DATA 6,78017,32,BUF2,8,88 
BUF BSS 32 
BUP2 BSS 32 
END START 


eWINDEX , 
FLAG sET 
eMENDALL 


Figure 8-16. 
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PART Ni, 8123 


NAME RF 
ENnlyaR wf 
FFF 434” ane 
SFEK «A 


SMREXAMP, we 


4 FILES OM & 


45657892 REVeed MATE SAASIA/7N TITLE SSHR FYAMPLES 


Yo Lan TITLE PAMMENT 


PLEXIS CHARACTER FHITOR PROGRAM 


FOMTRAM COMPHTE OS33a NATSe FRFICTENCY 
Sap OS334 TSNFPENUEXT SFE TEST 
FOMMENT SMR EX AMBIE & 2 1 CAMMENT 


Fu I TPRARY 


Figure 8-17. Index of NEWLIB with Added Modules 


PART NO.91234565"7690 REYSeA DPATE®94/10/75 TITLESSMR EXAMPLES 


eMUPDATE 
o#MODIFY 


07,9 
On PF FE 
o#INDEX 


FLAG SET 
e#ENDALL 


SMREXAMPLE 
THIS 18 NEW RECORD # 4 


THIS 18 NEW RECORD # SmA 
THIS 18 NEW RECORD # SeB 


THIS 15 NEW RECORD 7A 
THIS 38 THE NEW LAST RECORD 
TO INDEX NEw LIGRARY 


Figure 8-18, Input Stream to Modify a Module 


PORT PN SIDPAASSe7RQOO REV ewe PATE RAASIASFIRN TITLF esr FKAMPLES 

NAME REV LANE TIYLe - FAMMENT 

EN LT AR wh PLEXUS CHARATTFR EMTTNE PREGRAY 

FEF U3" we FOOTTAN COMPUTE HS33RAQ NYSP FFFICTENTY 

SFrEK wA SAP NSS8A TNF PENDTEST SFEK TEST 

SME XAMPL wR FGOMMFENT SR FY AMPLF & 2 Nf COMMERNY 


4 FILES ON KEW LTPRARY | 


Figure 8-19, Index of Modified Module 


8.12.6.6 DELETING A MODULE, Figure 8-21 shows the command input 
stream to delete a module. Figure 8-22 shows an index of the new library 
generated, This index was generated ina separate run of SMR. 
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PART NO.81234860e7698 REVeeh DATE®%4/18/75 TITLESSMR EXAMPLES 


e#EXTRACT #SEG 
eWL IST SMREXAMPLE 


NAME REV LANG TITLE COMMENT 
SMREXAMPL *#B COMMENT SMR EXAMPLE # 2 KO COMMENT 
THIS 18 NEw RECORD # 4 *B a081 
THIS 18 ORIGINAL RECORD & {4 *@ 8992 
THIS 18 ORIGINAL RECORE # 2 ** 9283 
THIS 18 ORIGINAL RECORD «# 3 ee 8004 
THIS 18 CRIGINAL RECORD & 4 #@ 9905 
THIS 18 ORIGINAL RECORD # 5 *e 9766 
THIS 18 NEW RECORD # SeA «8 9797 
THIS 18 NEW RECORD # SeB +8 oes 
THIS 18 ORIGINAL RECCRD # 6 #e 2709 
THIS 3S NEW RECORD Joa *8 gaia 
THIS 18 ORIGINAL RECCRE @ ig #e gail 
; THIS 1S THE NEW LAST RECORD *B a7°12 
eMENDALL 
Figure 8-20. Sequenced Listing of Modified Module - 
Input Commands and Listing 
PARY NO.912345607890 REVsel) DATE®%4/18/75 TITLESSMR EXAMPLES 
UPDATE 
e#DELETE EDITOR 
eEKDALL 
Figure 8-21. Input Stream to Delete a Module 
PART "O,812545507392 REVEer PATERM4/10/75 TITLERSHR FYAMPLES 
Name REV LAKG TIYLF COMMENT 
EFFA3" #e FORTRAN COMPLITE OS330 NTSC FREICTENCY 
SFEK @#h Sap DOSS3A TNNFPENNENT SFEK TEST 
SMRFXAMPL @R COMMFNT SR EXAMPLE w 9 NO COMMENT 


3 FILFS OF KEW IT TPRaRY 


Figure 8-22. Index of NEWLIB without Deleted Module 
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8.13 LINKABLE PARTS FILE BUILD UTILITY (LPFBLD) 


The LPFBLD utility maintains a key indexed file of 980 object records, Each 
object deck in the file has a key equal to the IDT name with all of the object 
records for that program sequentially linked to the key. LPFBLD can be used 
to modify, extract, or delete members of a linkable parts file. LPF BLD cre- 
ates a key of the program if added to the file and replaces the old object if the 
IDT name already exists as a key. 


LPFBLD is useful for building an object file for input to the DX980 link editor 
(DXOLE). To retrieve an object deck from the key indexed file, use the 
DXOLE include with key option (i.e, INCLUDE 20(IDTNAM)), Using DXOLE 
and LPFBLD together in this manner allows easy manipulation of object files 
and easy retrieval for link editor input. 


8.13.1 STANDARD JCL PROCEDURE 


The following listings are standard procedures for LPF BLD. The firstis for 
a single step job executing LPF BLD. The second is for a two step job per- 
forming an assembly of the module and including this assembled module in 
the library file, 


o# CREATE LPFBLL,COMMENT, "UPNATE LTINKARLE PARTS FILE * 


JREPLACE LPFRLO . UPDATE LINKAALFE PARTS FILE , 

EXEC OBJe(i,SYSTEM,LPFBLDO) MEMS(308,33¢0,19aF) PRTY8(1,233 

/ TIMEmgeat NAJ3:anR] PEM? sMEM 

/ASSIGN @ DUMPY DEVICES eNCOn e CONTROL 
/ASSIGN § NISC NEVICELsOURJ FILES(iSER@1,ASMOUT) FILEtaFOBJs 

/ BUFFERS#®1 « CBJECT INPUT 
/ASSIGN 6 Sc NEVICESsULST e LISTING 
ASSIGN 7 DUMMY DEVICESSDEXT FILESsFEXT REPLACES @REXT) 

/ BUFFERS#1 LINKSFO ACCESSs(ANY,CREAT,CREAT,CREATI} 

/ ACCESS3aCExT ALLOCATE#(1,4%,128,20) ALLOCATESsLEXT , EXTRACT FILE 
7ASSIGN 9 NISC! DEVICERsNUPH FILESsFURD REPLACE: sRUPD} 

/ BUPFERS#2 INDEXED aCCESSs(CREAT,CREAT,CREAT,CREAT)} 

/ ACCESS2sBCuPD ALLUCATE®(1,0,256,10) ALLOCATE? eLuPO?s 

/ KEYLENS6 . UPNATFE FIIE 
/END 

2* CREATE ASMUP ,COMMENT,"ASSEMBLE MOD AND UPDATE LPF ° 

7 REPLACE ASMUP e ASSEMBLE MODULE AND UPDATE LPF : 

JEXEC OBJ8(1,S8SYSTEM,ASMBLR) MEM8(398,6908,2000) PRTYS(1, 2)3 
4 TIMEsei MEMgsMEMA : ; 
(ASSIGN @ DUMMY DEVICE? sDMSG p SYSTEM MESSAGE 
/ASSIGN 4 DUMMY DEVICE? sDCON , CONTROL /MESSAGE 
ASSIGN § DISC1 DEVICEtsDSRC FILEssFSRC BUFFERS#s1 - SOURCE INPUT. 
/ASSIGN 6 SC DEVICEssDLSTA FILEseFLSY BUFFERS#1 . SOURCE LIST/ERROR 
“ASSIGN 7 DISC1 FILES(TEMP,OBJECT) NEW BUFFERS#1i LINKSEQ? P ; 

( ACCESSs(ANY,ANY,ANYSANY) ALLOCATE®(108,308,64,.20) . OBJECT OUTPUT 
/ASS[GN 16 DISC! FILEsC(TEMP.SCRL) NEW DELETE BUFFERS#13 

/ LINKSEQ ACCESSsS(ANY,ANY,ANY,ANY)3 ; - ae 

ALLOCATE#®(19,388,256,38) - SOURCE SCRATCH 

7EXEC OBJS(1-SYSTEM,LPFBLD) MEM#(360,3360.,1988) PRTY=(1.,2)3 

/ TIMEsel MEMs sMEMU : 

ASSIGN @® DUMMY DEVICE ?sDCON r CONTROL 
/ASSIGN § DISC1 FILEs(TEMP,OBJECT) BUFFERS#1 p OBJECT INPUT 
/ASSIGN 6 SC OEVICEssOLSTU FILEssFLST BUFFERS#®1 | p LISTING 
“ASSIGN 9 OISC!1 DEVICEssDUPD FILEssFUPD REPLACE: #RUPNs 
4 BUFFERSs2 INDEXED ACCESS#(CREAT,CREAT,CREAT, CREAT)3 

ACCESSssCUPD ALLOCATEs®*LUPD KEYLENS6 . UPDATE FILE 


/ 
/END 
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8.13.2 MEMORY PARTITION REQUIREMENTS 
The memory allocation parameter for LPFBLD should be: 
é MEM=(300, 3300, 1000). 


The job extension parameter is dependent upon the blocking factors and the 
number of buffers assigned for the LUNs, but 1000 words is adequate for 
most files, 


8.13.3 LUN ASSIGNMENTS 


The logical unit assignments for LPF BLD are given in table 8-27, Figure 
8-23 illustrates the linkable parts file (LPF) built on LUN 9. 


8.13.4 OPERATION 


LPFBLD first reads a control record from LUN 0. The control record deter- 
mines the mode of execution. Mode 2 is the default LPF BLD mode of execu- 
tion. 


MODE 1: The control record of 'CR#¢#' implies all of the old keys and data 
are deleted from the linkable parts file. Then processing continues 
the same as in Mode 2. 


MODE 2: The control record of 'MOD¥' or an end of file (from DUMMY) mod- 
ifies only those modules input from LUN 5 either by replacing the 
old object, or by creating a new key and inserting the new object. 
The new object is reformatted and output to LUN 9. 


MODE 3: The control record of 'EX¢' implies that the object for members 
of the linkable parts file assigned to LUN 9 is to be output to LUN 7 
as a sequential file. The names of the modules to extract should 
start in column 5 of the control command and be separated by com- 
mas. The first blank column terminates the scan for member 
names. A control card cannot be continued but multiple control 
commands may be entered. An end of file or a control record 
other than 'EX¥b' terminates LPF BLD in the EXTRACT mode. 

For example, 


EX A,B,C 
EX D 
[* 


would extract modules A,B,C, and D from LUN 9 and output the 
object to LUN 7. An end of file is written at the end of LUN 7. 


MODE 4: The control record of 'DEL¢' implies that the object for the mem- 
bers of the linkable parts file that are named on the control card 
is to be deleted from LUN 9. The syntax of the DELETE (DEL) 
command is the same as for the EXTRACT command in mode 3. 
Multiple DEL commands may be entered if necessary. 
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Table 8-27. LPFBLD Logical Unit Assignments 


Control records are read to select the 
LPFBLD mode of execution. 


Control Input 


Object Input One or more object modules, input termi- 
nated by an EOF. This LUN is refer- 
enced for the 'CR' and 'MOD' modes. The 


LUN is rewound before any input is read. 


6 Listing Listing of IDT names of all object mod- 
ules entered through LUN 5 and error 
messages. 


7 Iixxtract Mode Output | Output LUN for the 'EX' mode. This 
LUN is rewound before any object is 
written and is terminated with an end of 


sequential file or a device that supports 
binary output. 


9 | Update File Key indexed linkable parts file built 


with a kev length of 6 characters and 


¥V¥ & bad anwy eS Hay YAt we Se oe SNS 


| 
file. This LUN is processed as a link 
i 
| 


a logical record length of 80 charac- 
ters. 


8.13.5 ERROR CODES 
® "INDEX FILE FULL" 


This message indicates that the linkable parts file is full and no 
records can be added. The user must define a new file with a larger 
maximum allocation and then recreate the file or use the DXCOPY 
utility to copy the old file into the new file. 


e "INVALID MODE" 


The control record was invalid. Columns 1 through 4 of the control 
record must be 'CR#b', 'MOD$', 'EXbb', or 'DEL#' unless an end 
of file is input. 


"Nename> IS NOT IN FILE"! 


The number name specified on the DEL or EXT control record does 
not exist on LUN 9. The processing does not terminate but just 
skips over the invalid name. 
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a Data Associated with Key (OBJECT Record) 
PGMO1$ 1700 PGMO1 

1702 

1706 
TABLES 1700 TABLE 

1706 


Figure 8-23. Format of Linkable Parts File Built by LPFBLD 


8.14 BUILD EDIT FILE UTILITY (BLDEDT) 


The build edit file utility, BLDEDT, constructs keyed indexed files for edit- 
ing under the Interactive File Editor (IFE) of the Interactive Terminal Sub- 

system. Reference the Interactive File Editor description in Section ve of 
this manual for a discussion of the uses for BLDEDT. 


8.14,1 STANDARD JCL PROCEDURE 
The following listing is a standard procedure for BLDEDT: 


o# CREATE BLDEDT,COMMENT, "BUILD EDIT FILE 

/REPLACE BLDEDT e BUILD EDIT FILE . 

Jae OBJs(1,SYSTEM,BLDEDT) MEM®(390,550,2906) PRTY=(1,15)3 
TIMEswl MEMS@MEM PRTYesPRI TIMEssTIM 


piaeiGn 18 DISC1 DEVICE:ssDIN FILEssFIN BUFFERS#1 . SOURCE INPUT 
/ASSIGN 26 DISC1 DEVICE: s00UT FILEssFOUT REPLACE BUFFERS#23 

/ BUFFERSs#BOUT INDEXED ACCESS#(ANY,ANY,ANY,ANY)3 

/ ACCESS: sCOUT ALLOCATE®(1,8/256,198) ALLOCATE? sLOUTs 

ae KEYLENS2 - SOURCE OUT FILE 


8.14.2 MEMORY PARTITION REQUIREMENTS | 
The following are the memory requirements for BLDEDT utility: 
<stksiz> = 300 words 
<jarea> ‘= 550 words 


<jearea>-= 2000 words 


8.14.3 LUN ASSIGNMENTS 
The LUN assignments for BLDEDT are given in table 8-28, 
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8.14.4 OPERATION 


The Build Edit File (BLDEDT) utility is a 2-task program operating under 
DX980. BLDEDT accepts input from a sequential access source (either de- 
vice or file) and builds the key indexed edit file such that the 1-word keys 
are record numbers and the data is the source text. The first record has a 
key of "1", the second '2", etc. 


Table 8-28. BLDEDT Logical Unit Assignments 


Source Input Sequential device/file 


Source Output Key indexed file with key length of 2 charac-. 
ters. 


8.14.5 ERROR CODES 


BLDEDT does not have any unique error codes. The system detects any ab- 
normal condition, Refer to Appendix A for the error codes, 


8.15 LIST EDIT FILES UTILITY (LSTEDT) 


The List Edit Files Utility (LSTEDT) lists an entire IFE File on a formatt- 
able device. Although the List Record edit command of the Interactive File 
Editor lists selected records in an edit file, this utility program lists the en- 
tire edit file. This listing can be valuable for subsequent editing sessions 
since the record number for each record is displayed along with the record. 
The format of the listing is a four digit record number followed by a separator 
blank and the data record. 


8.15.1 STANDARD JCL PROCEDURE 
The following listing is a standard procedure for LSTEDT: 


e# CREATE LSTEDT,COMMENT, "LIST EDIT FILE " 

/REPLACE LSTEDT « LIST EDIT FILE . 

/EXEC OBJs(1,SYSTEM,LSTEDT) MEM®(390,1700,650) PRTY#(1,15)} 

/ _ TIMEseli MEM3eMEM PRYYsePRI YTIMEseTIM 

/ASSIGN 18 SC. _— DEVICEs s0LST : , SOURCE OUTPUT 
ppaaien 20 OISC1 DEVICErsDIN FILEssFIN BUFFERS#1 + SOURCE INPUT FILE 


8.15.2 MEMORY PARTITION REQUIREMENTS 

The following are the memory requirements for the LSTEDT utility: 
<stksiz>. = 300 words 
<jarea> = 1700 


<jearea>-= 650 words 
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8.15.3 LUN ASSIGNMENTS 


The required LUN assignments for the LSTEDT utility are given in table 
8-29, 


e Table 8-29. LSTEDT Logical Unit Assignments 


Source Output Formattable device 


Source Input Key indexed file with key length of 2 charac- 
ters, 


8.15.4 OPERATION 


The LSTEDT utility is a single-task program that operates under DX980. 
No command input is required, The key indexed file assigned to LUN 20 is 
listed to the formattable device assigned to LUN 10. 


8.15.5 ERROR CODES 


LSTEDT does not have any unique error codes, The system detects abnor- 
mal conditions, Refer to Appendix A for error codes, 


8.16 CREATE, DELETE, OR REPLACE FILE (FILMGR) 


The File Manager Utility (FILMGR) creates, deletes or replaces a file. If 
the user specifies replacement and a file with the same name presently exists, 
FILMGR deletes the old file and creates a new file. 


8.16.1 STANDARD JCL PROCEDURE 
The following listing is a standard procedure for FILMGR: 


«# CREATE FILMGR, COMMENT, "FILE CREATE/NDELETE CAPABILIT® 
/REPLACE FILMGR e FILE CREATE/DELETE CAPABILITY . 

/EXEC OBJs(1,SYSTEM,OXCOPY) MEM®(390,2650,856) PRTY#(1,15)3 

/ . TIMEs@1 PRTIYssPRI TIMEsa TIN 

/ASSIGN 1 DISC1 DEVICEss0ISC FILEssFILE NEWssNEW REPLACES#REPs 


/ DELETE: sDEL SUFFERSs1 LINKSEQssLIN RELREC3sREL? - FILE TO BE 

/ ' INDEXEDs®IND ACCESS@(ANY,ANY,ANYSANY) ACCESS3S8ACC3. CREATED/DELETED 
/ ALLOCATESSALL KEYLEN®6 KEYLEN3sKEY LRECL#643 

/ LRECLs8LRE 

7ASSIGN § DUMMY 

ASSIGN 6 DUMMY 

/ASSIGN 7 DUMMY 

7ASSIGN 6 DUMMY 

“END 
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8.16.2 MEMORY PARTITION REQUIREMENTS 

The following memory parameters are required for the FILMGR utility: 
< stksiz>= 300 
<jarea> = 2650 


< jearea>= 850 


8.16.3 LUN ASSIGNMENTS 


The required LUN assignments for the FILMGR utility are given in table 
8-30. 


Table 8-30. FILMGR Logical Unit Assignments 


File to be created, deleted or replaced Any file type 


_ 


Not used Assign to DUMMY 
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8.16.4 OPERATION 


The FILMGR utility executes the load module, DXCOPY. Assignment of 
LUN 1 to the file being managed accomplishes the action specified in the job 
control when processed by DX980 job management, Parameters in the Run 
command indicate if the file is to be created, deleted or replaced. Deleting 
a file need only specify the file name and password (if the file is password 
protected against deleting). Both the NEW and REPLACE specifications re- 
quire further statements to allocate new disc space, define the access code 
and state the type of file. 


8,16.4.1 DELETING FILES, The Run command required to delete a file 
is of the following form: 


//RUN FILMGR DISC=<devnam> FILE=(<fileid>, <filnam>,<pswd>) DEL 


Section II of this manual (Job Control Language) describes the variable 
parameters, The password (<pswd>) may be omitted if the file is not pass- 
word protected against deleting, 


8.16.4.2 CREATING A LINKED SEQUENTIAL FILE, The Run command 
necessary to create a new linked sequential file is of the form: 


//RUN FILMGR DISC=<devnam> FILE=(< fileid>, <filnam>,<pswd>) NEW LIN; 
ACC=(<integ>, <integ>, <integ>,<integ>) ALL=(<itrks>, <trknum>,< prwrds>,< mtrks>) 


Section II of this manual describes the parameters in this statement. A 
sample Run command to create a 50-track, linked sequential file that anyone 
can access appears as follows: 


//RUN FILMGR DISC=DISC1 FILE=(USERO1, FILE1) NEW LIN; 
ACC=(ANY, ANY, ANY, ANY) ALL=(50, 0, 256, 60). 


The file is created on DISC1, has no password, has a physical record length 
of 256 words and a maximum allocation of 60 tracks. The search for avail- 
able space starts with track zero. 


8.16.4.3 CREATING A RELATIVE RECORD FILE, The RUN command 
used to create a relative record file appears as: 


//RUN FILMGR DISC=<devnam> FILE =(<fileid>,<filnam>,<pswd>) NEW REL; 
ACC=(<integ>, <integ>, <integ>, <integ>); 
ALL=(<itrks>,<trknum>,<prwrds>,<mtrks>) LRECL=<Irchar> 


The allocation of a relative record file is similiar to a link sequential except 
that the logical record length, <lrchar>, must also be specified. A sample 
allocation of a relative record file with a physical record length of 256 words 
and a logical record length of 64 characters appears as follows: 


//RUN FILMGR DISC=DISC1 FILE=(USERO1, FILE2, ABC); 
NEW REL ACC=(ANY, PSWD, CREAT, CREAT); 
ALL=(50, 0, 256, 50) LRECL=64 
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This file is created with a password of ABC. Note the initial and maximum 
track allocation must be the same since the relative record file is not ex- 
pandable. 


8.16.4.4 CREATING A KEY INDEXED FILE, A key indexed file may be 
created with a Run command of the form: 


//RUN FILMGR DISC=<devnam > FILE=(< fileid>,<filnam>, <pswd>) NEW IND; 
ACC=<(«integ >, <integ>,<integ>, <integ>); 
ALL=intrkss,<trknum>,<prwrds>,<mtrks>) KEYLEN=<klchar> 


The parameter, <klchar>, specifies the key length in characters. The maxi- 
mum key length is 30 characters. To create a key indexed file with a key 
length of 6 characters, the following command may be used: 


//RUN FILMGR DISC=DISC2 FILE=(SYSTEM, FILE3); 
NEW IND ACC=(ANY, PSWD, CREAT, NONE); 
ALL=(10, 0, 128,20) KEYLEN=6 


This file is created on DISC2 and has a physical record length of 128 words. 


8.16.4.5 REPLACING FILES, If the replace (REP) parameter is specified 
instead of new (NEW), any file with the specified name is deleted before the 
new file is created, All information in the old file is destroyed. 


8.16.5 ERROR CODES 
Error messages for FILMGR are the same as those for DXCOPY. 
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APPENDIX A 
ERROR MESSAGES - 
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Ox98@ ERROR CODES 


AS OF 84/89/75 


Oona gaan 


12 


wOUT OF PARTITION REFERENCE IMPLYED BY PARAMETERS OF aN SVE CALL 


#JOB EXTENSION AREA TOC SMALL 

wNO SPACE IN DSCA 

eILLEGAL NUMBER OF PARAMETERS IN 8VC LIST 
eI/O ATTEMPTED ON NON@ASSTGNED LUNO 


-@1/0 ATTEMPTED WITHOUT OPFN 


@DUPLICATE OPEN ON SAMF L''!NO 
eWAIT CONTROL LIST ERROR FOUND Ob USER SUSPEND 
@PRIORITY ERROR 

@CPU TIME EXCEEDED 

@ILLEGAL USER POST 

wILLEGAL INSTRUCTION 

eA NON@EXISTENT SVC *AS ISSUED 

eUSER HAS REQUESTED ACCESS TO A PRIVILEGED SVC 
eILLEGAL SVC ARGUMENT eOUTSIDE USER PARTITION 
@PTR TO SVC ARG LIST OLTSTDE USER PARTITION 
wINVALIO DEVICE I D 

eNO SPACE IN PCB 

eNO SYSTEM LUNO # 14 

eUSER FILE DIRECTORY OVERFLOW 

eMASTER FILE DIRECTORY OVFRFLOW 

@PREVIOUSLY DEFINED USER 1D 

eILLEGAL USER ID 

eATTEMPT TO DELETE SYSTEM DISC MFD 

eINVALID ABNORMAL JOB TERMINATION CODE 
eUNDEFINED #ILE 

eUNDEFINED USER ID 

wATYEMPT TO REPLACE PREV ASSIGNED FILE 
@PREVIOUSLY DEFINED FILE 

eINVALID PILE TYPE 

eINSUFFICIENT TRK SPACF OY DEFINE 

eINSUFF, CONTIG, TRK SPACE ON DEFINE 
eEXCEEDED DISC SIZE ON DEFINE 

eZERO KEY LENGTH POR DEFINE 

eREADY JSB FILE BAD 

eATTEMPT TO DELETE A SHARED FILE 

eINVALID FILE DISPOSITION CODE 

eDEVICE OFFLINE 

eATTEMPT TO SHARE UNSHARABLE DEVICE 

eATTEMPT TO SHARE BLOCKED DEVICE 

@ATTEMPT TO ASSIGN EXCL A SHARED PASSED RESOURCE 
*OPERATOR CANCELLATION 

eTOO MANY JuB STERS 

eINVALID JCB 

eINVALIO INPUT LOT 

eJOB NO/STEP NO, NOT IN SYSTEM 

eJOB NAME NOT IN SYSTEF 

mATTEMPT TO ILLEGALLY ACCESS FILE 


POTENTIAL RESOURCE DEADLOCK DUE TO INCOMPLETE PASSING 


wINVALID JCH SIZE SPECIFIED 

wATTEMPT TO DEASSIGN UNASSIGNED LUNO 

#TO0O MANY JOB STEPS (18) IN ONE JOB STRING 
ePARENT JOB ENDED BEFORE ‘08 STRING STARTED 
eLOAD MODULE TOO B8I1G FOR SPECIFIED USER SPACE, 
eNO JOB INITIATION SYSTEM TASK FOR JOB 

eLOAD MODULE LOAD NO GOOD 
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eATTEMPT TO ASSIGN TO DISC DIRECTLY 
eDEASSIGNMENT OF OPEN DEVICE/FILE 


6@ SOQM@SYSTEM OUTPUT QUEUE OVERFLOW 


61 


72 
71 


SOQMeTOQ MANY OUTPUT FILES 


“MEMORY PARITY ERROR 

eMEMORY PROTECT ERROR » ASDRESSING ERROR 

ePRIVILEDGE INSTRUCTION VTOLATIOA 

wRESOURCE STACK OVERFLOW 

eBYTE RELOCATION ADDR BAD IN LD MOD 

=MIP NO BAD FOR LOAD OR LAADR 

eLOAD OR LOADR EXTENDS BEYOND USER MEM 
BPSeCAN NOT ALLOCATE INPUT DEVICE (REASON@MEMORY OR DEVICE NOT AVAILABLE) 
BPSe»READ ERROR ON INPUT DEVICE 


7OBPSOCeILLEGAL OR MISSING "JOB" COMMAND 
7FSBPSOCeILLEGAL RUN COMMAND 


7A 


BPSeILLEGAL DATA COMMAND 
BPSeTOO MANY INPUT DATA FILE 
BPSeNO OF INPUT DATA FILES UNMATCHED KITH NO OF ASSIGNED INPUT DATA FILES 
BPSeDATA COMMAND UNMATCHED WITH INPIT ASSIGNMENTS 
BPSeQUTPUT QUEUE ERROR = REINITIALIZE QUEVE TO USE BOS 
@eJOS/STEP NUT IN ROLL FILE DIRECTORY 
eNO SPACE AVAILABLE IN ROLL PILE 
wINSUFFICIENT ROLLABLE ME“ORY 
@ROLL PERFORMED NORMALLY 
»ROLL FILE CLOBBERED 
BPSeDATA ERROR ON LINE PRINTER 
BPSeEND OF FILE ENCOUNTERED WHILE SKIPPING RECORDS 
@REQUEST FOR MORE MEMORY THAN IN FREE MEMORY 
eDEVICE FILE REQUESTED AT RUNTYME NOT AVAILABLE 
eINVALID JOB STEP NUMBER YN JSB 
eILLEGAL NUMBER INPUT 
eILLEGAL COMMAND 
#TOO MANY JOBS IN THE 8YSTEM 
elUNO LDT NOT FOUND 
eNOT A RR FILE 
JCLeUSEReID SPECIFIED FOR PROCEDURE LIBRARY DOES NOT EXIT 
JCLePROCEDURE LIBRARY DOES NAT EXIST UNDER SPECIFIED USEReID 
JCLeUSER CAN'T GAIN ACCESS TA PROCEDURE LIBRARY BECAUSE OF INTEGRITY CODE 
JCLeSPECIFIED PROCEDURE DCES NOT EXIST IN PROCEDURE LIBRARY 
JCLeHARDWARE FAILURE WHILE ATTEMPTING READ FROM SPECIFIED PROCEOURE LIB. 
JMmATTEMPTED TO USE FILE OF RESTRICTED USER ID 
OCeHAROWARE 17/0 ERROR IN OP, COMMURICATIONS 
OCmINVALID MESSAGE ID 
OCeINVALID OPERAND IN OP, COMMUNICATIONS 
OCeINVALID ARGUMENT LIST IN OP.COMMUNICATIONS 
OCeINVALIO JOB NUMBER PASSE IN OP, COMMUNICATIONS 
OC@eATTEMPT TO OFFLINE SY8TE™“ DIse OR SYSTEM CONSOLE 
OGeNO SPACE IN DSCA OR JEA 
OCwINVALIO OP COMMUNICATIONS COMMAKD 
OCeJOB NUMBER NOT FOUND BY OP, COMMUNICATIONS 
OCeIN OJCBPR, INVALID SIZE REQUIRED FOR '//JOB' JSB 
OCeINVALIO NUMBER USED FOR SKIP COMMAND TO SATCH OUTPUT SPOOLER 
OCeUNDEFINED COMMAND GIVEN TO BATCH OUTPUT SPOOLER 
TOeDEVICE NOT READY 
IOwCONTROLLER ERROR 
TOeDATA ERROR 
IOeCONTROLLER BUSY ERROR 
TOeWRITE PROTECT ERROR: 
TOeEOR ERROR | 
ITOPREAD@AFTER@HRITE ERROR 
TO@DEVICE OFFLINE 
TO@eILLEGAL OPeCoDE 


a LL cine 
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IOSDEVICE TIMEOUT (DEVICE DTD NOT RESPOND) 
FMeNO SPACE AVAILABLE ON DISC VOLUME 
FMeFILE FULL £/0 ERROR . 
FMeATTEMPTED WRITE, LOGICAL RECORD >© PHYSICAL RECORD + OVERHEAD 
FMeHARDWARE FAILURE ON DISC VOLUME 
FMeINDEX, REPLACE ATTEMPTED ON NON®EXISTING KEY 
EMmEXISTING KEY FOUND ON 'WRITE! OPeCODE -©=OPERATION NOT PERFORMED 
FMe INDEX, WRITE/REPLACE ATTFMPTED CN NONeKEYED RECORD 
EMeINDEX, REPLACE ATTEMPTED ON KEYED RECORD 
FM» INDEX, REPLACE ATTEMPTED ON NULL DATA (NON-EXISTENT) 
FMe INDEX, REL@REC, NO KEY AFTER SEARCH 
FMeINVALID FILE TYPE (NONSEXISTENT) 
FMe INSUFFICIENT TRACKS FOR ALLOCATION 
FMeINSUFFICIENT CONTIGUOL'S TRACKS LEFT ON DISC VOLUME 
FMeALLOCGATION EXCEEDS DISC VOLUME CAPACITY 
FMeUNABLE TO ALLOCATE BUFFERS BECALSE OF JOB EXTENSION SIZE 
FMe INSUFFICIENT NUMBER OF B'FFERS FOR ATTEMPTED OPERATION 
FMeOPCODE IS EITHER NONwFXISTENT OR ILLEGAL 

_ FMmACCESS VIOLATION, INTEGRITY ERROR 

CSCNeOVERFLOW OF KEYWORD AREA 

CSCNeOVERFLOW OF PACKED STRING STORAGE 

CSCNeRwH.S, OF EXPRESSION CR TERM MISSING 

CSCNeILLEGAL EXPRESSION SUBSCRIPT 

CSCNeMISSING DELIMETER AFTER COMMAND ID 

CSCNeNUMBER IS LARGER THAN 16 BITS 

CSCNeOPERAND STARTS WITH ILLEGAL CHARACTER 

CSCNeILLEGAL DIGIT IN DECIMAL NUMBER 

CSCNeMISSING DELIMTER NETWEEN OPERANDS 

CSCNeMISSING DELIMETER BETPEE SUBSCRIPTS 

CSCNwILLEGAL CHARACTER PRECEENS COMMAND 

1TSeRUN COMMAND DCES NOT CONTAIN A LABEL OR AN EXPRESSION 

CSCNeMISSING EGIAL SIGN IN ASSIGNMENT 

CSCNeRIGHT HAND SIDE OF ASSIGMENT MISSING 

CSCNeMORE THAN NE # SIGN IN EXPRESSION 

CSCNeSIZE OF PACKED STRING < % CHARACTERS 

CSCNeUPPER BOUND ON KEYWORD AREA < 1 

CSCNeNUMBER OF RESERVED LABELS < g 

CSCN@STARTING CULUMN POR SCAN NOT IN RANGE (8879) 
JCL@FOR A NEW FILE, USER DIRECTORY NAME DIFFERS-FROM CURRENT USER 
JCLeJSB MUST CONTAIN DEVICE TNDEX, NOT THE PDT ADDRESS 
JCLeDEVICE INDEX MUST BE «<= 255 

JCLePHYSTCAL RoL. < KEYeLENGTH » 14 

JCLeFILE HAS BAD ACCESS CODE VALUE 

JCLeBOTH 'DELETE' & 'PASS' SPECIFIED 

JCL@LOGICAL Reba > PHYSICAL &,L. 

JCLeLOGICAL Rok. A MULTIPLE %F 32 

JCLeDEVICE NOT SPECIFIED OR TNCORRECTLY SPECIFIED 
JCLeUSER ID NOT SPECIFIED 

JCLeFILE NAME NOT SPECIFIED 

JCLe# PRIORITY LEVELS > 31 OR < 1 

JCLeJOB STEP PRIORITY > 31 OR « 4 

JCLeOBJ, VOLUMN ID 18 > 26 OR < 1 

JCLeTCB STACK SIZE < 1 WORD 

JCLeILLEGAL COMMAND AFTER 'DFLETE! 

JCLeTIME LIMIT < 1 SECOND | . 
JCLe# PRIORITY LEVELS + JOB STEP PRIORITY IS > 34 OR « 1 
JCLeJOB EXTENSION SIZE <e TCR STACK SIZE + 15 WORDS 
JEL=VOL USER ID NOT INITIALIZED 

JCLeVOLUMN FILE NOT INITIALIVED 

JCLeVOL USER ID OR FILE NAME > 6 CHARS 

JCLeVOL PASSWORD > 4 CHARS 

JCLaWRONG # OF OPERANDS ON THE RIGHT SIDE OF AN EXPRESSTON 


er el SL 
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JCLeOPERAND IS NOT A LABEL OR A SUBSCRIPTED EXPRESSION 
JCLeOPERAND ON THE RIGHT SIDF IS NOT A LABEL OR A NUNBER 
JCLeBAD PEVICE NAME 

JCLeBLOCK SIZE < { 

JCLeREDEFINITION CF LUNC IN YOCRSTEP 

JCLePASSWORD > 4 CHARACTERS 

JCLeUSER ID OR FILE NAME >» 6 CHARACTERS 

JCLeNUMBER BUFFERS < 1 

JCLeRE*INITIALIZATION OF JSB ITEM 


JCLeBAD LABEL 


FOR ACCESS CODF 


JSCLeINITIAL TRACKS < { 

JCLeFIRST TRACK ADDRESS < 8 
JCLePHYSICAL RECORD LENGTH < 32 
JCLePHYSICAL RL. NOT MULTIPLE OF 32 
JCLeMAX TRACKS < CINITIAL OR 1) 
JCL=LOGICAL RECORD LENGTH < § 
JCLeLUNO NUMBER NOT IN RANGE @ TO 254 
JCLeKEY LENGTH NOT IN RANGE { TO 38 
JCL@OPERAND DOESN'T START WITH LABEL 
JCLeKEYNAME ON THE LEFT SIDE OF AN EXPRESSION IN NOT DEFINED 
JCLeOVERFLOW OF KEYeENTRY TARLE 
JCLeOVERFLOW OF KEYeREFERENCF TABLE 
JCLeOVERFLUW OF KEY=@CHARS TASLE 
JCLeDISC ERROR ON LUNO 4 


JCLeINDEX KEY 


NAME FOLLOWING ‘CREATE! OR 'REPLACE' > 6 CHARACTERS 


JCLeGREATER 31 ASSIGN CARDS TN THIS JOB STEP 


JCLe'CREATE! 
JCLeDEVY INDEX 


OR REPLACE! NOT FOLLOKED BY INDEX KEY NAME 


<« 21 OR FILE VOL >» 26 


JCL@PHYSICAL Rok. CCHAR) < CKEYLEN # 2 + 14) 


JCLeFILE TYPE 


NOT SPECIFIED “HEN NEEDED (DEFINE, ETc.) 


JCLeKEYNAME IS NOT IN RESERVFD WORD LIST 

JCLe# OF ENTRIES IN TABLE PASSED TO 'CRLOOK' IS NEGATIVE 
JCLeSUBSCRIPTS APPEAR ON LHS OF EQUAL SIGN 

JCLeTRIED TO FETCH NONSEXISTANT RHS SUBSCRIPT 

JCLeTRIED TO FETCH NON@EXISTANT QPERAND 


JCLeI/O ERROR 
JCLeEOF, EOM, 


ON LUNO 8 2, (¢ECHO PRIKT) 
QR I/O ERROR ON LUNO a $, (JCL IN) 


JCLeMISSING SLASH IN FIRST COLUMN OF JCL 
JCLeOVERRIDING KEY WORD OB RIIN CARD DOES NOY EXIST FOR THIS PROCEDURE 


JCLeNUMBER OF 
JCLeNUMBER OF 
JCLeNUMBSR OF 
JCLeNUMBER OF 
JCLeKEYeENTRY 
JCLeKEYeENTRY 


KEYeENTRIES ZS NEGATIVE 

KEY@ENTRIES » 19 

KEYeREFERENCES «< @ OR >» 39 

KEY=CHARACTERS NOT IN RANGE @ TO i2¢ 

POINTS TO KEY REFERENCE WHICH IS NOT INITIALIZED 

FLAG INDICATES THAT NEITHER JCB NOR LOT 38 BEING INITIALIZED 


JCLeLDT NUMBER REFERENCE BY KEYwENTRY IS NOT IN RANGE 8 TO 38 
JCLePRODUCTION NUMBER NOT IN RANGE 3 TO 31 

JCLeJOB STEP NUMBER NOT IK RANGE ¢ TO 15 

JCLeJOB STEP NUMBER NOT IN RANGE 1 TO 15 

JCLeKEYeCHARS HAS LESS THAN 9 CHARACTERS 

JCLeCHARACTERS OVERFLOW KEYeCHAR STORAGE 
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APPENDIX B 
SAMPLE JCL SEQUENCES 


Job Control Sequence (JCS) for particular system installations are supplied 
on file JCLSRC contained on the disc image tape. List this file after com- 
pleting installation. 


This appendix contains sample listings of some sequences. These samples 


are not necessarily the exact sequences supplied on the previously mentioned 
tape. 
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ne i . 


eMUPDATE 
e#TAPE 


'Dx980 JCL SOURCE FILE+, 


.# CREATE ASMBLR, COMMENT, "ASSEMBLE 


/REPLACE ASMBLR 


« ASSEMB 


LE .« 


','85/15/75', 
” 


/EXEC OBJe(1,SYSTEM,ASMBLR) MEM®(398,5¢00,1000) PRTY#(1,15)3 


/ TIMEs={ MEMssMEM PRTYsePRI TIMESsTIM 

/ASSIGN ® DUMMY DEVICEs#DMSG SHARE : - SYSTEM MESSAGE 
/ASSIGN 4 DUMMY DEVICE:sDCON SHAREssSCON - CONTROL/MESSAGE 
/ASSIGN § DISCi DEVICEssDSRC FILEs2FSRC BUFFERS®! - SOURCE INPUT 
/ASSIGN 6 SC DEVICEssDLST FILEs#FLST SHARES sSLST BUFFERS#1.,SOURCE |. IST/ERROR 
/ASSIGN 7 DISCi DEVICEssN0BJ FILEseFOBJ NEWs=NOBJ3 


/ 
/ 


/ 
/ASSIGN 16 


/ 
/END 


REPLACE: #ROBJ BUFFERS#1 LINKSEQs 
ACCESS®(ANY,ANY,ANY,ZANY) ACCESS38COBS3 
ALLOCATE#(1,0,64,18) ALLOCATEs#LOBJ 

DISC1 FILE=(TEMP,SCRL) NEW BUFFERS#1 LINKSEG? 
ACCESS®(ANY,ANY-ZANYSANY) ALLOCATES (10,300,256,30) . 


#leal, 


OBJECT OUTPUT 


SOURCE SCRATCH 


24 CREATE ASMGO ,COMMENT, "EXECUTE ASM LANG GENED LM 8 
/REPLACE ASMGO e EXECUTE ASSEMBLY LANGUAGE GENERATED LOAM MODULE . 
/EXEC OBJs(1,USERG1,G0) MEMs(302,498021999) PRIY2(1,15)7 


/ TIMEsi@@ OBJ:sOBJ MEMseMEM PRTYsePRI TIMEseTIM 

ASSIGN 4 DUMMY LUNOSSLUN4 DEVICEssDEV4 FILE@SFIL4 BUFFERS=2,. USER PROG LUN 4 
/ASSIGN 5 SC LUNOSSLUNS DEVICEssDEV5 FILEssFIL5 BUFFERS#2, USER PROG LUN 5 
/ASSIGN 6 SC LUNOSSLUN6 DEVICEs2DEV6 FILEssFIL6 BUFFERS#2, USER PROG LUN 6 
/ASSIGN 7 DUMMY LUNOSSLUN7 DEVICEs#DEV7 FILEssFIL7 BUFFERS#2. USER PROG LUN 7 
/ASSIGN 8 DUMMY LUNOSsLUNB DEVICEsspEV8 FILEssFIL8 BUFFERS#2. USER PROG LUN 8 
7END 


o# CREATE ASMLGO,COMMENT, "ASSEMBLE, LINKs AND GO 


/REPLACE ASMLGO 


sOwer AR tart 


FEACKH VOY Us PUTO Ieee 


e ASSEMBLE, LINK. AND GO. 
SYSTEM, ASMBLE) MEMartqag,Saa0,1aga) PRTY#s!.15)3 


tveuvese wrersavrwwe 


sere“a 


/ TIMEsal MEM SMEMA 

/ASSIGN @& DUMMY DEVICEssDMSG SHARE . SYSTEM MESSAGE 
/ASSIGN 4 DUMMY DEVICEssDCON SHARE? sSCON « CONTROL/MESSAGE 
/ASSIGN § DISC1 DEVICEssDSRC FILEssFSRC BUFFERS#1 » SOURCE INPUT 
/ASSIGN 6 SC DEVICErsDLSTA FILEssFLSTA BUFFERS#1 . SOURCE |.IST/ERROR 
/ASSIGN 7 OYSC1 FILESC(TEMP,OBJECT) NEW BUFFERSs1 LINKSEQ? ; 

/ ACCESS®(ANY,ANY-/ANYSANY) ALLOCATE®(16,308,64,18) . OBJECT OUTPUT 
ares 16 DISC1 FILEs(TEMP,SCRL) NEW BUFFERS#1 LINKSEQ3 


ACCESS®(ANY,ANY*ANYPANY) ALLOCATES(16,300,256,38) . 


TEXEC OBJs(1,SYSTEM,OXOLE) MEM#(309,12900,3000) PRTY#(1,15)3 


SOURCE SCRATCH 


/ TIMEse{ MEM38MEML ; 

/ASSIGN § DISC! FILES(TEMP,O8JECT) DELETE BUFFERS#1 » PRIMARY INPUT/CON 
JASSIGN 6 SC DEVICEsDLSTL FrlessFLSTL BUFFERS#1 . LOADMAP LIST/ERR 
/ASSIGN 8 DISC1 FILES(TEMP,LM) NEW BUFFERSs1 RELREC LRECL8643 

/ ACCESS®(ANY,ANY,ZANYSANY) ALLOCATE®(19,390,32.108) ,. LOAD MOD OUTPUT 
/ASSIGN 9 DUMMY - LIBRARY FILE 
/ASSIGN 16 OISC1 FILE#(TEMP,SCRL) DELETE BUFFERS#1 . LINKSEQ SCRATCH 
/ASSIGN 13 DISC1 FILES(TEMP,SCRR) NEW DELETE BUFFERS#1 RELREC? 

/ ACCESS#(ANY,ANY*ANYSANY) ALLOCATE®#(10,300,128,10)3 


LRECL#1ae “ 


/ 
gies OBJs(1,TEMPoLM) MEM=(380-490G.1080) PRTY#(1,15)5 


TIMEsi@@ MEM3sMEMG TIMEssTIMG 


RELREC SCRATCH 


TASSIGN 4 DUMMY DEVICEssDEV4 FILEs=FIL4 BUFFERSS2 - USER PROG LUN 4 
/ASSIGN § SC DEVICEssDEVS FILEssFILS BUFFERSs2 » USER PROG LUN 5 
/ASSIGN 6 SC DEVICESsDEV6 FILEssFIL6 BUFFERSs2 - USER PROG LUN 6 
/ASSIGN 7 DUMMY DEVICES sDEV7 - USER PROG LUN 7 
ZENO 


LL 
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04% CREATE ASMLNK,COMMENT, "ASSEMBLE AND LINK . 


/REPLACE ASMLNK 


e ASSEMBLE AND LINK , 


/EXEC OBJe(1,SYSTEM,ASMBLR) MEM®(398,5000,1000) PRTY=(1, 715)3 


/ 


TIMEsel MEMSeMEMA 


/ASSIGN @ DUMMY DEVICE?©0MSG SHARE » SYSTEM MESSAGE 
/ASSIGN 4 DUMMY DEVICEssDCON SHARE? #SCON » CONTROL/MESSAGE 
/ASSIGN § DISC1 DEVICE:20SRC FILEs*FSRC BUFFERS#=1 - SOURCE INPUT 
/ASSIGN 6 SC DEVICErsOLSTA FILEssFLSTA BUFFERS#1 . SOURCE |.IST/ERROR 
/ASSIGN 7 DISC1 FILE#(TEMP,OBJECT) NEW BUFFERS#1 LINKSEQS 

/ ACCESS®(ANY,ANY,ANY,ANY) ALLOCATE2(10,386,64,10) . OBJECT OUTPUT 
gAseieN 16 OISC1 FILE®(TEMP,SCRL) NEW BUFFERS®1 LINKSEQ) 


/ 


ACCESSS(ANY,ANY-ANY*ANY) ALLOCATE®(16,300,256,38) . 
err OBJs(1,SYSTEM,DXOLE) MEM#(309,12908,3000) PRTY#(1,15)3 


TIMEsel MEMs SMEML 


SOURCE SCRATCH 


/ASSIGN 5 DISC1 FILE=(TEMP,OBJECT) DELETE BUFFERS#1 » PRIMARY INPUT/CON 
/ASSIGN 6 SC DEVICErsDLSTL FILE:sFLSTL BUFFERS#1 . LOADMAP LLIST/ERR 
JASSIGN 8 DISC1 DEVICESsDL™ FILEs(USER@1,GO) FILES=FLM3 

/ REPLACES #RLM BUFFERS®4 RELREC3 

/ ACCESS#(ANY,ANYsANYSANY) ACCESS32CLM3 

/ ALLOCATE#(10,0,32/18) ALLOCATEssLLM LRECL #64 » LOAD MOD OUTPUT 
/ASSIGN 9 DUMMY DEVICEt#DLIB FILEssFLIB BUFFERS! > LIBRARY FILE 
/ASSIGN 1@ DISC1 FILES(TEMP,SCRL) DELETE BUFFERS#=1 . LINKSEQ SCRATCH 
/ASSIGN 13 DISC! FILES(TEMP,SCRR) NEW DELETE BUFFERS#4 RELREC3s 

/ ACCESS®(ANY,sANY,ANYZANY) ALLOCATES (10,306,128,10)3. 

/ LRECL #100 - RELREC SCRATCH 
7END 


o# CREATE ASMUP ,COMMENT, "ASSEMBLE MOD AND UPDATE LPF ® 


/REPLACE ASMUP 


« ASSEMBLE MODULE AND UPDATE LPF . 


/EXEC OBJ#(1,SYSTEMsASMBLR) MEM®(390,6900,20008) PRTY#(1,2)3 


/ TIMEsel MEMS SMEMA 
/ASSIGN @ DUMMY DEVICE?#DMSG , SYSTEM MESSAGE 
ASSIGN 4 DUMMY DEVICES sDCON | » CONTROL/MESSAGE 
JASSIGN § DISC1 DEVICEs#0SRC FILE:sFSRC BUFFERS#1 - SOURCE INPUT 
ASSIGN 6 SC DEVICE: sDLSTA FILE:sFLST BUFFERS®1 « SOURCE I.IST/ERROR 
ASSIGN 7 DISC1 FILES(TEMP,OBJECT) NEW BUFFERSs1 LINKSEQs 

/ ACCESSS(ANY,ANY,ANY,sANY) ALLOCATE®(16,380,64,20) . OBJECT OUTPUT 
ASSIGN 16 DISC1 FILES(TEMP.SCRL) NEW DELETE BUFFERS#=13 


/ LINKSEG ACCESSSCANY,ANY,ANY,ANY)? 

/ ALLOCATE# (18,300,256,308) 

EXEC OBJe(1,SYSTEMsLPFBLD) MEM®(390,698,1006) PRTY#(1,2)3 
/ TIMEsel MEMZeMEMU 


- SOURCE SCRATCH 


/ASSIGN @ DUMMY DEVICES =DCON p CONTROL 
JASSIGN § DISC1 FILES(TEMP,OBJECT) BUFFERS#1 » OBJECT INPUT 
JASSIGN 6 SC DEVICES sDLSTU FILEtsFLST BUFFERS#1 > LISTING 
/ASSIGN 9 DISC{ DEVICErsDUPD FILEssFUPD REPLACE s*RUPDS ‘: 

/ BUFFERS=2 INDEXED ACCESS#(CREAT,CREAT,CREAT,CREAT)} 

/ ACCESS#=CUPD ALLOCATEssLUPD KEYLENS6 . UPDATE FILE 
7END : 


o# CREATE BIR eCOMMENT, "BATCH INPUT READER . 
/REPLACE BIR « BATCH INPUT READER ,. 

/EXEC OBJa (1, SYSTEM,BIR) MEM#(389,9067680) PRTYE(1/5)9 
/ PRIV TIMES@i PRTYssPRY TIMEseTIM 

/ASSIGN 16 CRi DEVICEtsDIN ‘ 
7END 

o# CREATE BIS ,COMMENT,"BATCH INPUT SPOOLER . 
/REPLACE BIS e BATCH INPUT SPOOLER., 

/EXEC OBy#(1,SYSTEM,BIS) MEM#(309,1280,800) PRTY=(1,503 

/ PRIV TIMES=1 PRIVSSPRE TIME:STIM HEMSSMEM 
/ASSIGN 5 CRI DEVICE s#DIN 
/END 


INPUT STREAM 


INPUT STREAM 
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2% CREATE BLOEDT, COMMENT, "BUILD EDIT FILE . 

/REPLACE BLOEDT « BUILD EDIT FILE . 

/EXEC OBJe(1,SYSTEM,/BLDEDT) MEM®(390,550,2008) PRTY#(1,15)3 

/ TIMEsel MEMS=MEM PRIYssPRI TIMEssTIM ? 

/ASSIGN 18 DISC1 DEVICEraDIN FILEseFIN BUFFERSS! - SOURCE INPUT 
/ASSIGN 26 DISC1 DEVICEss00UT FILE:sFOUT REPLACE BUFFERS#23 

/ BUFFERSs#BOUT INDEXED ACCESSs(ANY,ANY,ANYSANY)3 

/ ACCESSrsCOUY ALLOCATE#(1,8256.180) ALLOCATES sLOUTs 

/ KEYLENS2 . SOURCE OUT FILE 
7END | 

e# CREATE BOS eCOMMENT,"BATCH GUTPUT SPOOLER . 

/REPLACE BOS e« BATCH OUTPUT SPOOLER . 

/EXEC 08)s(i,SYSTEM,BOS) MEM#(309,1160,806) PRTVs(1.5)3 

/ PRIV TIMES@1 PRTYs#PRY TIMEssTIM 

/ASSIGN 5 SC DEVICEssDOUT . OUTPUT I.ISTING 
/ASSIGN 6 DUMMY DEVICESsONEW FILEa(SYSTEM,NEWS) FILEseFNEWS 

/ BUFFERS®1 

7END 

o# CREATE CATFIL,COMMENT, "LIST FILES UNDER A USER : 

/REPLACE CATFIL e LIST FILES UNDER A USER . 

/EXEC OBJS(L,SYSTEM,CATFIL) MEM®(300,1650,678) PRIYS(1,5)2 

/ PRIV TIMESed PRTYsePRY 

/ASSIGN 8 SC DEVICEssDCON SHAREssSCON « CONTROL 
/ASSIGN 6 SC DEVICErsOLST FILEssPLST SHARESsSLST BUFFERSS! FILE LISTING 
/END 

o# CREATE CATLOG, COMMENT, "LIST, CREATE,OR DELETE USERS" 

“REPLACE CATLOG e LIST, CREATE, OR DELETE USERS , 


/EXEC OBJe(1,SYSTEM,CATLOG) MEM®#(390,4800.670) PRIY#(1,5)3 


/ PRIV TIMES@1 PRTY3sPRY ; 

/ASSIGN @ SC DEVICEs#0CON SHARE! *SCON «, CONTROL 

/ASSIGN 6 SC DEVICErsDLST FILE:sFLST SHAREt#SLST BUFFERS#1.USER LISTING 
END 

CREATE DEBOSG, COMMENT, "PROGRAM DEBUG AID . 

/REPLACE DEBOBO e PROGRAM DEBUG AID . 

/EXEC OBJe(1,SYSTEM,DEB960) MEM®(390,6900,600) PRIY#(1.15)3 

/ TIMEse! MEMS@MEM PRTYsePRI TIMEssTIM ; 

/ASSIGN oF 8 SC DEVICE: @DCIN » CONTROL INPUT 
/ASSIGN oF1 SC DEVICE: sDMSG - SYSTEM MESSAGE 
/ASSIGN oF2 DUMMY DEVICES sDCLST » CONTROL LISTING 
(ASSIGN 2F3 SC __-—DEVICEseDUMP FILEsePuMP BUFFERS#1 - MEMORY DUMP 
/ASSIGN oF 4 DISC1 DEVICEssDOBJ FILEssFoB8J BUFFERS#1 - RELOC OBJECT IN 
/ASSIGN 8 DUMMY DEVICE: sDEVa ’ » USER PROG LUN 2 
/ASSIGN 4 DUMMY DEVICEssDEV4 FILEssPIL4 BUFFERS#1 » USER PROG LUN 4 
/ASSIGN 5 DUMMY DEVICEseDEVS FILEssFILS BUFFERS#1 » USER PROG LUN 5 
ASSIGN 6 DUMMY DEVICEssDEV6 FILEssFIL6 BUFFERS#! » USER PROG LUN 6 
ASSIGN = 7 DUMMY DEVICEsaDEV7 , USER PROG LUN 7 
ASSIGN 8 DUMMY LUNOS®LUNS DEVICES @DEVs . USER PROG LUN 8 
/END 

o# CREATE DUMPLP,COMMENT,"OUMP LPF FROM CISC TO MY ® 

/REPLACE DUMPLP. « DUMP LPF FROM DISC TO MAG TAPE , 

CEXEC OBJ8(1,SYSTEM,DXCOPY) MEM®(390,4988,3800) PRTY#(1,2)3 

/ _ TIMEsel MEMsaMeEM 

/ASSIGN § DUMMY DEVICEssDCON » CONTROL /MESSAGE 
ASSIGN 6 SC  DEVICESsDLST FILEssFLsT BUFFERS! p LISTING 

ASSIGN 7 MT. _ DEVICEssDOUT FILEssFOUT BUFFERS#2 p OUTPUT 

/ASSIGN 8 DISC1 DEVICEseDIN FILEsC(SYSTEM,LPF) FILEseFINS . INPUT 


/ BUFFERS#2 
/END 


na 
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o# CREATE DXCOPY,COMMENT, "GENERAL PURPOSE COPY _ 
/REPLACE DxCopy e GENERAL PURPOSE COPY . 
EXEC OBJe(1,SYSTEM,DXCOPY) MEM8(390,37008.2000) PRTY=(1,15)3 
/ TIMEse! MEMS8MEM PRYYsePRI TIMEssTIM 
/ASS{GN 5 DUMMY DEVICEs=sDCON p CONTROL/MESSAGE 
ASSIGN 6 DUMMY DEVICEssDLST FILEssFLST BUFFERSS1 - LISTING 
ASSIGN 7 DISC1 DEVICEsepOUT FILEssFOUT REPLACE s#ROUT; 
4 BUFFERS#s2 BUFFERS: sBOuT LINKSEQseLIN RELRECs#REL? 
/ INDEXEDS®IND ACCESSSCANY,ANY,ANY,ANY) ACCESSs SCOUT? 
/ ALLOCATE®(1,0,128,19) ALLOCATE: sLOUT KEYLENSs6} 

KEYLEN:SKOUT LRECL#64 LRECL3860UT p OUTPUT 
/ASSIGN 6 DISC! DEVICEssDIN FILEseFIN DELETEt#TIN BUFFERS#1 . INPUT 
7END 
o# CREATE DXLINK,COMMENT,*LINK Dx986 OPERATING SYSTEM " 


/REPLACE OXLINK « LINK OX988 OPERATING SYSTEM , 

EXEC OBJa(1,SYSTEM,DXOLE) MEM#(309,31508,8000) PRTY=(1,2)3 

/ TIMEsel 

/ASSIGN 1% DUMMY DEVICEssDLP! FILEssFLPi BUFFERSs2 ALY 1 OBJECT IN 
/ASSIGN 2 DISC1 DEVICEseDLP2 FILEs(SYSTEM,DXLPF) FILEssFLP25_ 

/ _ BUFFERS22 - ALT 2 OBJECT IN 
/ASSIGN 3 DUMMY DEVICESsDLP3 FILEssFLP3 BUFFERS22 ALT 3 OBJECT IN 
/ASSIGN § DISC1 DEVICESeDIN FILEa(USERG1,LINKDX) FILEtsFIN}- 

/ BUFFERS#1 » PRIMARY INPUT/CON 
/ASSIGN 6 SC DEVICESsDLST FILErsFLST BUFFERSS! - LOADMAP LIST/ERR 
/ASSIGN 8 DISC1 DEVICEssDLM FILEs(USER@1,0XMIP) FILE2=FLM) 

/ REPLACE#"RLM BUFFERS®1 RELREC3 

/ ACCESS=(ANY,ANYsANY ANY) SD 


/ ALLOCATE ® (325247232532) ALLOCATEssLL™ LRECL #64 " LOAD MND OUTPUT 
/ASSIGN 9 DISC! DEVICE2s0LIB FILEs(SYSTEM,USRPLX) FILE: sFLIB} 

/ BUFFERS#2 . LIBRARY FILE 
/ASSIGN 1@ DISC! FILES(TEMP,SCRL) NEW BUFFERS#i LINKSEQ? 

/ ACCESS®(ANY,ANYSANY ANY) ALLOCATE®(16,300,256-80) . LINKSEQ SCRATCH 
/ASSIGN 12 DISC! DEVICESsDEXT FILEs(USER@1,0XEXTD) FILE: sFEXxTs 


/ REPLACES: ®REXT BUFFERSs1 LINKSEQ} 

/ ACCESSS(ANY,ANY,ANYSANY) ACCESS28CEXT? 

/ . ALLOCATE#(1,8,128,1) . SYS EXT DEFS FILE 
/ASSIGN 13 OISci FILESCTEMP,SCRR) NEW BUFFERS#!{ RELREC; 

/ ACCESS@(ANY,ANVSANYSANY) ALLOCATE®(2,388,128,2)3 | 

/ LRECLsi9@ - RELREC SCRATCH 
END 

“REPLACE OXOLE e LINK EDITOR . 


eer 08Je(1,SY8TEM»DXOLE) HEMe (308, 12888. 2800) PRTY#¢1.15)9 
TIMEse] MEMSSMEM PRTY3@PRI TIMES STIM 


/ASSIGN 1 OUMMY DEVICEseD0B! FILEs#F081 BUFFERS=2 > ALY 1 OBJECT IN 
(ASSIGN 2 DUMMY DEVICEssD0B2 FILEs*F082 BUFFERS#2 , ALT 2_OBJECT_IN 
ASSIGN S$ DISC! DEVICEreDIN FILEseFIN BUFFERS#! > PRIMARY INPUT/CON 
/ASSTGN 6 SC DEVICE sDLST p LOADMAP LIST/ERR 
ASSIGN 7 DUMMY DEVICE: sD0BJ FILEssFOB8J BUFFERS#1 . COMPACT OBJ OUT 
ASSIGN 8 DISC1 DEVICESsDLM FPILEssFLM REPLACES SRLMs 

/ BUFFERSe! RELREC ACCESSs(ANY.CREAT,CREAT»ANY)3 

he ACCESS#eCLM ALLOCATE®(1,6.3251) ALLOCATESsLLMs ta a 

/ LRECL #64 « LOAD MOD OUTPUT 
/ASSIGN 9 DISC) FILES(SYSTEM,USRFTN) DEVICEs*DLIB3 ? 


/ FILEsePLIB BUFFERSS2 . LIBRARY FILE 
/ASSIGN J@ DISC1 FILES(TEMP.SCRL) NEW BUFFERS@1 LINKSEOD | aad a 

/ ACCESS (ANY,ANY,ANY/ANY) ALLOCATES (19,300-256,30) , LINKSEQ SCRATCH. 
/ASSIGN 14 DISC1 FILESCSYSTEM,DXEXTD) FILESeFEXT BUFFERS#1 | SYS EXT DEFS OPT 
/ASSIGN $3 DISC! PILES(TEMP.SCRR) NEW BUFFERSe{ RELRECS 

/ ACCESSS(ANY,ANY,ANYSANY) ALLOCATEW(10,306,128,10)), = 

a ‘ LRECLeige - RELREC SCRATCH 
7EN : 
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o# CREATE DXOLEP,COMMENT,*"LINK PLEXUS PROGRAMS . 


/REPLACE DXOLEP 


« LINK PLEXUS PROGRAMS , 


JEXEC OBJa(1,SYSTEM,OXOLE) MEM#(389,32009,.3800) PRTYB(1,2)3 


/ _ TIMEsei MEMSSMEM PRTYssPRI TIMES#TIM 

ZASSIGN 1 DUMMY DEVICErsDOBS FILEs(USER@1,ASMOUT) FILEtsFOB1; 

/ BUFFERS#2 - ALT 1 OBJECT IN 
/ASSIGN 2 DUMMY DEVICES#D082 FILEs2FOR2 BUFFERS#2 » ALT 2 OBJECT IN 
/ASSIGN § DISC1 DEVICErsDIN FILEssFIN BUFFERS#1 - PRIMARY INPUT/CON 
/ASSIGN 6 SC DEVICErsDLST FILEs#FLST BUFFERS#1 » LOADMAP I.IST/ERR 
/ASSIGN 7 DUMMY DEVICE? sDOBJ FILE:sFOBJ BUFFERS#1 . COMPACT OBJ oUT 
JASSIGN 6 OISC1 DEVICEssDLM FILE:sFLM REPLACEs®RLM3 

/ RUFEERSat RELREC ACCESS=#(aNy,CREAT.CREATsANY) 3 
/ ACCESS38CLM ALLOCATE#(1,0,32-1) ALLOCATE? LLM} 

/ LRECL 864 - LOAD MOD OUTPUT 
/ASSIGN 9 DISC1 FILEsC(SYSTEM,USRPLX) FILEssFLIB BUFFERS#2 . LIBRARY FILE 
/ASSIGN 1@ DISC1 FILE#CTEMP.SCRL) NEW BUFFERSs{i LINKSEQS 

/ _ ACCESS®(ANY,ANY*ANYSANY) ALLOCATE®(10,300,256,30) . LINKSEA SCRATCH 
/ASSIGN 114 DISC1 FILE#(SYSTEM,DXEXTO) FILEssFEXT BUFFERS#1 . SYS EXT DEFS OPT 
/ASSIGN 13 DISC1 FILE=CTEMP,SCRR) NEW BUFFERS#!i RELREC? 

/ ACCESSS(ANYsANYsANYSANY) ALLOCATE®(10,380,128,10)) 

/ LRECLs100 -« RELREC SCRATCH 
ZEND 

.# CREATE FILMGR, COMMENT, "FILE CREATE/DELETE CAPABILIY® 

/REPLACE FILMGR e FILE CREATE/DELETE CAPABILITY . -7 
/ZEXEC OBJs(1,SYSTEMsOXCOPY) MEM®(390,2650,858) PRTY™(1,15)5 ‘Y 
/ _ TIMEsol PRTY¢sPRI TIMeEss TIM 

/ASSIGN 1 DISCi DEVICEssDISC FILEssFILE NEWssNEW REPLACESsREPs 

/ DELETE: sDEL BUFFERS#1 LINKSEQSsLIN RELREC3#REL) - FILE TO 8E 

/ INDEXEDS#IND ACCESSEC(ANY,ANY,ANYSANY) ACCESS32ACC3. CREATED/DELETED 
/ ALLOCATES SALL KEYLEN®6 KEYLENS8KEY LRECL3643 

/ LRECL2#LRE 

ZASSIGN § DUMMY 

/ASSIGN 6 DUMMY 

/ASSIGN 7 DUMMY 

/ASSIGN 8 DUMMY 

7END 


# CREATE FINGO ,COMMENT, "EXECUTE FORTRAN GENERATED Lé® 


/REPLACE FYNGO 


» EXECUTE FORTRAN GENERATED LOAD MODULE . 


/EXEC OBJs(1,USER@1,G0) MEM#(388,12009,1008) PRTYs(1,15)3 


/ TIMESi{@@ OBJss0BJ MEMsaMEM PRTYssPRI TIMEgs TIM 
/ASSIGN @ SC DEVICE sDMSG » SYSTEM MESSAGE 
/JASSIGN oR SC LUNO?SLUN® DEVICErsDEVO - USER PROG LUN 8 
/ASSIGN oBL DUMMY LUNOSSLUNI DEVICEssDEVi « USER PROG LUN 1 
/ASSIGN oB4 DUMMY LUNOSSLUN4 DEVICESeDEV4 FILESsFIL4 BUFFERS#2.USER PROG LUN 4 
/ASSIGN »B5- SC LUNOS®LUNS DEVICESsDEV5 FILEssFILS ABUFFERS#2,USER PROG LUN 5 
/ASSIGN »B6 SC _—_ LUNOSSLUN6 DEVICES 2DEV6 FILEssFIL6 BUFFERS#2,USER PROG LUN 6 
/ASSIGN -B8 DISCi LUNOSSLUNS FILESC(TEMP,SCRL) NEW BUFFERS#1}3 
/ LINKSEG ACCESS#CANYsANY,ANY,ANY)S , 
/ ALLOCATE#(1,388,32,18) - USER SCRATCH FILE 
SEND 
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o# CREATE FTNLGO,COMMENT, "FORTRAN COMPILE. LINK,AND GO* 


/REPLACE FT 


NLGO 


e FORTRAN COMPILE, LINK, AND GO, 


JEXEC OBys(i,SYSTEM,ZFIN) MEM#®(309,17000,1000) PRTY=(1,15)) 


/ 


/ASSIGN @ DUMMY DEVICESs0MSG SHARE 
5 DISCi DEVICEtsDSRC FILEssFSRC BUFFERS#! 


/ ASSIGN 
/ASSIGN 6 


TIMEsei, MEMS SMEMC 


fata 7 DISCi1 FILEsS(TEMP,PHASE1) NEW BUFFERS#s1] LINKSEQs 
ACCESSB(ANYSZANYsANYSANY) ALLOCATES (10,380,64,39) . 
yee OBJs(1,SYSTEM,FTNPS2) MEM™(39%,8900.1060) PRTY#(1.15)3 


/ 
/ASSIGN @ 
/ASSIGN 6 
/ASSIGN 7 
/ 
/ASSIGN 8 


/ 
/ASSIGN § 
/ASSIGN 6 
/ASSIGN 8 
/ 
/ 
/ASSIGN 9 
/ASSIGN 18 
/ASSIGN 13 
/ 


SC. DEVICEssDLST1 FILEteFLST BUFFERS#! : 


TIMEsel MEMs3 sMEMC 
DUMMY 
SC DEVICEssOLST2 


DISC1 FILEs(TEMP,OBJECT) NEW BUFFERS#1 LINKSEQ?s 
ACCESS®(ANYSANYSANYSANY) ALLOCATE S(10,380,64,18) . 
Drsci FILEs(TEMP,.PHASEL) BUFFERS#1 4 
7EXEC OBJe(1,SYSTEM,OXOLE) MEM#(309,12908,3000) PRTY#(1,15)3 


TIMEse] MEMs SMEML 


DISC1 FILES(TEMP,OBJECT) DELETE BUFFERS#1 
SC DEVICESsDLSTL FILErsFLST BUFFERS#1 : 
DISC1 FILES(TEMP,L™) NEW BUFFERS#1 RELREC3 


ACCESS®(ANY,ANY-ANY,ANY) ALLOCATE®#(10,300,32,108)) . 


LRECL #64 


DISC! FILES(SYSTEM/USRFIN) BUFFERS#2 ‘ 
DISC! FILE#(TEMP,PHASE1) DELETE BUFFERS#1 

DISC1 FILES(TEMP,SCRR) NEW DELETE BUFFERS#{ RELRECS 
ACCESS#(ANY,ANY,ANY,ANY) ALLOCATES (10,309,128,10)3. 


LRECLsi90@a 


/ 
ZEXEC OBJs(1,TEMP,LM) MEMs(300,8980,1008) PRTV#(1,15)3 
TIMES&100 MEM:eMEMG TIMEgeTfIoG 


/ 

/ASSIGN ] 
/ASSIGN >B8 
/ASSIGN oB! 
/ASSIGN oB5 
/ASSIGN 2B6 
/ASSIGN >B8 
/ 

/END 


sc DEVICE: sDMSG 
sc DEVICE: sDEVe 
DUMMY DEVICEssDEVi 


sc DEVICEssDEVS FYILEssFIL5 BUFFERS=2 
SC DEVICE: sDEV6 FILEssFIL6 BUFFERS82 


~~ sos e* 


os 


DISCi1 FILES(TEMP,SCRL) NEW BUFFERSS1 LINKSEQ3 : 
ACCESSSCANY,ANY.ANYSANY) ALLOCATE®(10,5368.32,18) . 


o# CREATE FTNLNK,COMMENT, "FORTRAN COMPILE AND LINK ® 


/REPLACE FY 


NLNK 


e FORTRAN COMPILE AND LINK . 


/EXEC OBJs(1,SYSTEM,FIN) MEM#(389,10808,1080) PRYY#(1,15)3 


/ 


/ASSIGN © DUMMY DEVICE?sDMSG SHARE 


/ASSIGN 6 


TIMEsel, MEMS eMEMC 


SC DEVICEssDLST1 FILEseFLST BUFFERS®1 
/ASSIGN 7 DISC1 FILES(TEMP.PHASE1) NEW BUFFERS#1 LINKSEQ? 


/ASSIGN § DISC1 DEVICESsDSRC FILEs=FSRC BUFFERS#! : 


/ 

/ASSIGN 86 
/ASSIGN 6 
/ ASSIGN 
/ 


/ASSIGN 8 DISC1 FILEs(TEMP,PHASE1) BUFFERS#1 


/ ACCESSS(ANY,ANY,ANYSANY) ALLOCATES (10,5300,64,308) 
/EXEC OBJs(1,SYSTEM,FTNPS2) MEM8(390,8900,1800) PRTVY#8(1,15)3 


TIMEsei MEMS sMEMC 
DUMMY 
Sc DEVICEss0LST2 


7 DISC! FILESC(TEMP,OBJECT) NEW BUFFERS®!{ LINKSEQs 


ACCESS# (ANY, ANY, ANYSANY) ALLOCATE#(18,300,64,10) ° 


JEXEC OBJa(1,SYSTEM,OXOLE) MEM#(30@,12900,3008) PRTY=(1,15)3 


/ 
/ASSIGN § 
/ASSTGN 6 
/ASSIGN 8 
/ 
/ 


/ 

/ASSIGN 9 
/ASSIGN 18 
/ASSIGN 13 
/ 

/ 

7END 


TIMEsel MEME SMEML 


DISC! FILES(TEMP,OBJECT) DELETE BUFFERS#1 ? 
SC DEVICESsOLSTL FILEssPLST BUFFERS#1 . 
DISC! DEVICEtsDLM FILEs(USERB1.G0) FILEssFLMs 
REPLACEs#RLM BUFFERS#] RELREC3 


ACCESSS(ANYSANYsANYsANY) ACCESS38CLM3 
ALLOCATE#(18,0,532,18) ALLOCATEZsLLM LRECL#64 ? 


* 


DISci1 FILE#(SYSTEM,USRFIN) BUFFERS#2 , 
DISc! FILES(TEMP,PHASE1) DELETE BUFFERSs{% 

OISC)] FILEs(TEMP,SCRR) NEW DELETE BUFFERS# 4 RELREC} 
ACCESSS(ANY,ANYSANY*ANY) ALLOCATE®(10,590,128,10)3. 


LRECL816@ 


SYSTEM MESSAGE 
SOURCE INPUT 
SOURCE [.IST/FRROR 
INTERMED ORJECT 
SOURCE SCRATCH 


SYSTEM MESSAGE 
ERROR MESSAGE 


OBJECT OUTPUT 
INTERMED OBJECT 


PRIMARY INPUT/CON 
LOADMAP JL.IST/ERR 


LOAD MOD OUTPUT 


LIBRARY 
LINKSEQ SCRATCH 


RELREC SCRATCH 


SYSTEM MESSAGE 
USER LUN @ 

USER LUN 1! 

USER LUN Ss#INPUT 
USER LUN 6#0UTPUT 


USER SCRATCH FILE 


SYSTEM MESSAGE 
SOURCE INPUT 
SOURCE I,IST/ERROR 
INTERMED OBJECT 
SOURCE SCRATCH 


SYSTEM MESSAGE 
ERROR MESSAGE 


OBJECT OUTPUT 


« INTERMED OBJECT 


PRIMARY INPUT/CON 
LOADMAP I.IST/ERR 


LOAD MOD OUTPUT 
LIBRARY 
LINKSEQ SCRATCH 


RELREC SCRATCH 


I 
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e# CREATE FINPSi,COMMENT, "FORTRAN PHASE 1 COMPILE " 


/REPLACE FINPS1 


« FORTRAN PHASE i COMPILE . 


/EXEC OBJa(1,SYSTEM.FIN) MEM#(389,60899,1808) PRTY#(1,15)% 


SYSTEM MESSAGE 
SOURCE INPUT 


SOURCE SCRATCH 


/ TIMEsei MEM3*MEM PRTYesPRI TIMESsTIM 

/ASSIGN @ DUMMY DEVICEr2DMSG SHARE . 

/ASSIGN 5 DISCi1 DEVICErsDSRC FILEssFSRC BUFFERS#1 * 

/ASSIGN 6 SC DEVICErsDLST FILFssFLST SHAREssSLST AUFFERS#1,SOURCE |.IST/ERROR 
ASSIGN 7 DOISC1 DEVICE:sDINT FILE:sFINY BUFFERSs!1 LINKSEO;3 

/ ACCESSS(ANY,ANYsANYS ANY) ALLOCATE#(1,.8,64,30)3 . 

/ NEWssNINT REPLACES sRINT ACCESS aCINT ALLOCATEssLINT 

7END 

»# CREATE FYINPS2,COMMENT,“FORTRAN PHASE 2 COMPILE " 


/REPLACE FINPS2 
/EXEC OBJe(1,SYSTEM,FINPS2) MEM®(390,8900,1000) PRTY=(1,15)3 


/ 
/ASSIGN 
/ASSIGN 
/ ASSIGN 
/ 

/ 
/ASSIGN 
/END 


o# CREATE HELP 
/REPLACE HELP 
/EXEC OBJs(1,SYSTEM,DXCOPY) MEM®(390,5700,1500) PRTY#(1,15)3 


/ 
/ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ ASSIGN 
/END 


« FORTRAN PHASE 2 COMPILE . 


TIMEg=1 MEMEsMEM PRTY:spRI TIMEseTIM 
@ DUMMY DEVICES#DMSG SHARE 
6 SC 
7 DISC1 DEVICEssD0BJ FILE:sFOBJ BUFFERS=1 LINKSEQs 
ACCESS®(ANY,ANY,ANYeANY) ALLOCATE®(1,0/64,18)3 


NEWssNOBJ REPLACEssROBJ ACCESS: sCOBJ ALLOCATEs*LOBJ 


68 OISc1 DEVICE:sDINT FILE ssFINT BUFFERS#1 


,COMMENT, "HeEe@L=p OPERATOR 
« HeE@L=P OPERATOR . 


TIMEs-1 MEMtsMEM PRTytePRI TIMESsTIM 
5 DUMMY 
6 SC 
7 DUMMY 
8 DISC! FILEs(SYSTEM,HELP) BUFFERS#1 


DEVICEssDLST 


04 CREATE INITSP,COMMENT, MINITIAL BATCH OUT SPOOL FILE* 


/REPLACE INITSP e 


eraisowe at 


OUTPUY SPOSLER FILE 


/EXEC OBJsC(1,SYSTEMZINITSP) MEM®(390,500,700) PRYYS(1.5)3 


/ TIMEsel PRTYssPRI 

/ASSEGN 6 DISCi DEVICEssDS0Q FILEs(SYSTEM,S0Q) REPLACE? 

/ BUFFERS=s1 RELREC ACCESSs(CREAT.CREAT.CREAT.CREAT)3 
/ ALLOCATE#(1,0,32,1) LRECL#64 

/END 

«* CREATE IPLINK,COMMENT, "LINK IPL PROGRAM a 


/REPLACE IYPLINK 


e LINK IPL PROGRAM . 


JEXEC OB83e(1,SYSTEMsDXOLE) MEMs(309,15000,6000) PRTY#(1,2)3 


/ 
/ ASSIGN 
/ 
(ASSIGN 
/ASSTGN 
/ ASSIGN 
/ 
/ 


/ 
/ ASSIGN 


/ 
/ ASSIGN 
/ 

/ ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ 

/ 

7END 


TIMEsel MEMS =MEM 


1 OISCi1 DEVICEssDIPL FILEs(SYSTEM,OXLPF) FILEssFIPLS. 


BUFFERS23 BUFFERS: sBIpL 

DISC1 DEVICEssDIN FILEssFIN B8UFFERS#! 

SC DEVICE:sOLST FILEssFLST BUFFERS#1 

DISc{ DEVICE:sDLM FILEs(USER@1,I1PL) FILESeFLM? 
REPLACEs#RLM BUFFERS®4 RELREC3 
ACCESS#(ANYsANYSANYSANY) ACCESSE SCL 
ALLOCATE#(6,0,32,6) ALLOCATES®LLM LRECL864 


CoA WA 


o>. “ ‘e 


f 


9 DISCi DEVICE: #DLIB FILEs(SYSTEM,USRPLX) FILESsFLIBy 


BUFFERSs2 


1@ DISC! FILEs(TEMP,SCRL) NEW BUFFERS#1 LINKSEQ) 


ACCESS®CANY,ANYSANYeANY) ALLOCATE® (18,580,256,10) 


11 DUMMY 

12 DUMMY 

13 DISC! FILES(TEMP,SCRR) NEW BUFFERS#4 RELREC3 
ACCESS@ (ANY,ANYSANYSANY) ALLOCATE®(2,5308-128,2)}3 
LRECLs10@ 


SYSTEM MESSAGE 


DEVICE:s0LST FILE: sFLST SHARES#SLST RUFFERS#1, ERROR MMSSG85 


OBJECT OUTPUT 


INTERMED ORJECT 


CONTROL /MESSAGE 
LISTING 

OUTPUT 

INPUT 


$00 FILE 


IPL OBJECT IN 
PRIMARY INPUT/CON 
LOADMAP L.IST/ERR 


IPL LOAD MOD OUT 
LIBRARY FILE 
LINKSEQ SCRATCH 


SYS EXT DEFS OPT 


RELREC SCRATCH 


Digital Systems Division 


943005-9701 


o# CREATE ITS 
/REPLACE ITS 


eCOMMENT, "INTERACTIVE TERMINAL SUBSYS * 
« INTERACTIVE TERMINAL SUBSYSTEM . 


JEXEC OBJs(1,SsyYSTEM,ITS) MEM#(30@9,80600,2000) PRTY®(2,1)3 


/ 
/ASSIGN 
ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ ASSIGN 
ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ ASSIGN 
7END 


eo# CREATE JCL 
/REPLACE JCL 


_ PRIV TIMES=1 OBJ:s0BJ MEMsSMEM PRTYVesPRI PROT #sPRO 
1 DUMMY DEVICEssT1 SHARE3:2391 
3 DUMMY DEVICEssT2 SHARE3882 
§ DUMMY DEVICErsT3 SHAREs8S3 
7 DUMMY DEVICEssT4 SHARE;:884 
9 DUMMY DEVICEs®T5 SHARE3:sS5 
DUMMY DEVICE3sT6 SHARE :#S6 
DUMMY DEVICE:sT7 

DuMMY DEVICEssT8 

DuMMY DEVICEssT9 

DuMMy DEVICE:sTie 


»COMMENT, "CREATE Jct PROCEDURE " 
. CREATE JCL PROCEDURE , 


/EXEC OBJe(1,SYSTEM,/JCLTRN) MEM® (390, 7558.1800) PRTY#(1,15)5 


/ 
“ASSIGN 
/ ASSIGN 


/ASSIGN 


/ ASSIGN 
/ 

/ 

/ 

/END 


_ TIMEsel MEMSsMEM PRTY3sPRI 


1 SC DEVICE:s0SRC FILE:sFSRC BUFFERSS! 
2 SC DEVICESsDERR SHARE: sSERR 
3 SC DEVICE:sDLST FILEs#FLST SHARE3sSLST RUFFERS# 


4 DISC{ DEVICE:sD0BJ FILEs(SYSTEM,SJCBFL,AB)s 
FILE:sFOBJ REPLACEssR0OBy BUFFERSs2 INDEXED? 
ACCESSSC(ANY,ANY,ANY-ANY) ACCESS 8COBJ}3 
ALLOCATE8(1,8,96,28) ALLOCATE:#LOBJ KEYLEN#s6 


e# CREATE JCLUP ,COMMENT,"UPDATE Jct SOURCE AND BINARY" 


/REPLACE sCcLuP 


« UPDATE JCL SOURCE AND BINARY FILES . 


/EXEC OBJs(1,SYSTEM,JCLTRN) MEM®(390,7550.1800) PRTY=#(1,15)3 


/ 
/ASSIGN 
/ASSIGN 
/ASSIGN 
/ ASSIGN 
/ 
/ 


TIMEse] MEM? #MEM 
1 DISCi1 FILEs(SYSTEM,JCWORK) BUFFERS#1 

2 $C DEVICEssDERR 

3 SC . DEVICEss0LST | 

4 DISC! DEVICEssfbOBJ FILEs(SYSTEM,SJCBFL,AB)3 
FILE:sFOBJ REPLACEs*ROBJ BUFFERSs2 INDEXEDs 
ACCESS#CANY,ANY,ANYsANY) ACCESS3 sCOBJ3 
ALLOCATE#(1,8,96,32) ALLOCATEssLOBJ KEYLENS6 


/ 
/EXEC OBJa(1,SYSTEM,SMR) MEM8(309,11589,2008) PRTYs(1.15)3 


/ 

/ASSIGN 
/ASSTGN 
/ ASSIGN 
/ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ 

/ ASSIGN 
/ ASSIGN 


TIMEs@1 MEMS sMEM 
@ DUMMY 
4 DISC1 FILEs(SYSTEM,JCLCUP) DELETE BUFFERS#1 
6 DUMMY 
215 DISC’ FILEs(SYSTEM,JCLSRC) BUFFERS#1 
222 DUMMY 
225 DISC1 FILESC(TEMP,JCLFIL) NEW LINKSEQ BUFFERS#13 
ACCESS@ (ANY, ANY,ZANY*ANY) ALLOCATE®#(7,380,256,30) 
226 DUMMY 
235 DISCL FILE# (SYSTEM, JCWORK) BUFFERS#i 


/EXEC OBJe(1,SYSTEM,SMR) MEM=(30g,11509,2080) PRTY#(1.15)3 


4 
/ASSIGN 
/ ASSIGN 
/ASSIGN 
/ ASSIGN 
/ASSIGN 
/ASSIGN 
/ ASSIGN 
7END 


TIMEs@{ MEM? eMEM 

@ DUMMY 

4 pane 

_6 DUMM 
715 BEAcL FILESC(TEMP,JCLFIL) BUFFERS#1 
222 OUMMY 
225 OIsct FILE® (SYSTEM, JCLSRC) BUFFERS#1 
226 DUMMY 


“> ~~ “eo “* “» “es “» “e ~° 


me) 


1 


~ 


~ e.* D * 


TERMINAL, 
TERMINAI, 
TERMINA], 
TERMINAL, 
TERMINAI. 
TERMINAI, 
TERMINAL. 
TERMINAI. 
TERMINAL. 
TERMINAI, 


SOURCE INPUT 
ERROR MESSAGE 
sSOURCE I.ISTING 


OBJECT OUT FILE 


SOURCE INPUT 
ERROR MESSAGE 
SOURCE LISTING 


OBJECT OUT FILE 


ERROR/USER MSG 


CONTROL 
LISTING 


OLD LIBRARY FILE 
COMPILE OUT FILE 


NEW LIBRARY FILE 
JCL UPDAT CON OUT. 


INCLUDE 


CONTROL 
LISTING 


OLD LIBRARY FILE 
COMPILE OUT FILE 
NEW LIBRARY FILE 
JCL UPOAT CON OUT 
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.# CREATE LIBBLO,COMMENT, "BUILD LIBRARY FILE " 


/REPLACE LIBBLD 
/EXEC OBJs(1,SYSTEMsLIBBLD) MEM®(3@0,2000.1000) PRTY=(1,15)3 


/ 


ASSIGN 5 MT 
/ASSIGN 6 SC 


.« BUILO LIBRaRy FILE . 


TIMEsel MEMtsMEM PRTYsspRI TIMEssTIM 
DEVICE:#D0BJ FILEssFOBJ BUFFERSs! « OBJECT INPUT 
DEVICE:sDLST FILEssFLST SHAREssSLST BUFFERS#1.IDT/DEF LISTING 


/ASSIGN 9 DISC1 DEVICEssDLIB FILE:sFLI8B REPLACEs#RLIA3 


/ 
/ 
/ 
/END 


BUFFERS#2 INDEXED ACCESS#(ANYsANYe ANY, ANY) 3 
ACCESS2sCLIB ALLOCATEs(1,07128,20) ALLOCATE: sLLIBs 


KEYLEN®8 - OUTPUT 1.IB FILE 


o# CREATE LINKUP,COMMENT, "LINK MOD AND UPDATE L ™ FILE® 


/REPLACE LINKUP 


» LINK MODULE AND UPDATE LOAD MODULE FILE . 


JEXEC OBJs(1,SYSTEM,DXOLE) MEM8(300,12900,3200) PRIY#(1,1)3 


/ 

/ ASSIGN 
/ ASSIGN 
/ ASSIGN 
7 ASSIGN 
/ 

/ASSIGN 


/ 
/ASSIGN 
/ 
/ 
/ASSIGN 


/ 
/ASSIGN 
/ 


/ 
VEXEC OBJs(1,SYSTEM, LMUPDT) MEM MEG 2S E20. 588) bi Os oo 
/ 


AM be 


9 


18 


i! 
13 


TIMEsel MEM? @MEML 
DUMMY DEVICEssD0BJ FILEssFOBJ BUFFERS#2 - SECONDARY OBJ IN 
Disci1 DEVICE:sDIN FILErsFIN BUFFERS#1 - PRIMARY INPUT/CON 
SC DEVICEssDLST FILEssFLST BUFFERS#1 « LOADMAP I.IST/ERR 
DISC! FILEs(TEMP.LM) NEW BUFFERS#1 RELREC LRECL#643 
ACCESS8(ANY,ANY,ANYSANY) ALLOCATEs(10,3508,32,10) e 
DISCi DEVICErsDPLX FILEs(SYSTEM,USRPLX) FILES sFPLXs 


LOAD MND OUTPUT 


BUFFERS#2 '. PLEXUS LIBRARY 
DISC1 FILES(TEMP,SCRL) NEW DELETE BUFFERS#13 
LINKSEQ ACCESSS(ANY,ANY,ANY,ANY) 3 . LINKSEQ SCRATCH 


ALLOCATE# (18,308,256, 38) 
DISCi1 DEVICEssDEXT FILEs(SYSTEM,DXEXTD) FILES sFEXTs 
BUFFERSs1 - SYSTEM EXT DEFS 
DISC! FILES(TEMP,SCRR) NEW DELETE BUFFERS=1 RELREC? 
ACCES Se CANYSANY CANT SONY? ALLOCATE#(18,580,128,10)3 


LRECL#100 « RELREC SCRATCH 


TIMEsel MEM sMEMU 


fASSIGN 4 SC) DEVICE sDHSG > SYSTEM WHESSAGE 
/ASSIGN 5 SC  -DEVICErsDCON SHARE? sSCON » CONTROL INPUT 
/ASSIGN 6 DISC! FILESC(TEMP,LM) BUFFERS#1 » LOAD MODULE INPUT 
/ASSIGN 7 DISC1 DEVICEtsDUPD FILE:sFUPD BUFFERS#1 . UPDATE FILE 

7END 

o# CREATE LMUPDT,COMMENT, "LOAD MODULE UPDATE " 


“REPLACE LMUPDT 


e LOAD MODULE UPDATE . 


JEXEC OBJs(LeSYSTEMSLMUPDT) MEMS(399,3908,508) PRTY2(3.,1)3 


/ 
/ASSIGN 


/ ASSIGN 


ASSIGN 6 DISC] DEVICESsDOLM FILEreFL™ BSUFFERS#1 
ASSIGN 7 DISC1 DEVICESsDUPD FILEssFUPD BUFFERS#! 


/END 


4 
3 


TIMEse] MEMSaMEM PRTYsePRI TIMEssTIM 
sc HNEVICE?sNMSG 


$C‘ DEVICErsDCON 


SYSTEM MESSAGE 
CONTROL INPUT 
LOAD MOOULE INPUT 


UPDATE FILE 


DEVICESsDCON FILEssFCON BUFFERS! 


ove 3 YU 


a# CREATE LPFBLO,COMMENT, "UPDATE LINKABLE PARTS FILE * 


/REPLACE LPFOLD 


« UPDATE LINKABLE PARTS FILE , 


JEXEC OBJe(1, SYSTEM,LPFBLD) MEMa(3H@,53800,1988) PRTYa(1,2)9 


/ 
ASSIGN 
/ASSIGN 
/ 


/ASSIGN. 


/ASSTGN 
/ 


4 
/ASSTGN 


/END 


Change 1 


, (ihEees OBJI80BJ MEMS eMEM 
DUMMY DEVICES eDCON 

8 DIscs DEVICES a00BJ FILE®(USERG1,ASMOUT) FILES=FOBJ) 
BUFFERS#{ , OBJECT INPUT 
SC  DEVICESs0L8T « LISTING 
DUMMY DEVICES#DEXT FILESeFEXT REPLACES SREXT). 
BUFPFERSe1 LINKSEQ ACCESS (ANY, CREAT, CREAT,CREAT)) 
ACCESSIaCEXT ALLOCATES(1,0,128,28) ALLOCATES@LEXT , EXTRACT FILE 
9 DISC! DEVICESSDLUPD FILESsFUPD REPLACE S@RUPD) 

BUFFERSe2 INDEXED ACCESS=(CREAT,CREAT,CREAT,CREAT)} 

ACCESS#BCUPD ALLOCATE®(1,0,256,18) ALLOCATES sLUPO) 

KEYLENS6 . UPDATE FILE 


CONTROL 


6 
7 
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«# CREATE LSTEOT,COMMENT, "LIST EDIT FILE " 

/REPLACE LSTEDT » LIST EDIT FILE . 

/EXEC OBJs(1,SYSTEM,LSTEDT) MEM®(3@0,1780,650) PRTY#(1,15)3 

/ _ TIMESe1 MEMZ@MEM PRTYs@PRI TIMEssTIM 

“ASSIGN 18 SC DEVICEs=DLST - SOURCE OUTPUT 
/ASSIGN 28 DISCi1 OEVICErsDIN FILEtaFIN BUFFERS#! ~ SOURCE INPUT FILE 
END 

o# CREATE PIALGO,COMMENT, "PLEXUS COMPsILT.ASM/LINK,GO * 

/REPLACE PIALGO « PLEXUS COMPILE, ILT. ASSEMBLE, LINK, AND GO. 

ZEXEC OBJ=(1, SYSTEM, PLEXUS) MEM®(398,>94C8,2708) PRTV#(1,/2)) 

/ TIME®7208 MEMs SEM: 

/ASSIGN @ SC__ DEVICE sDERR ~ ERROR MESSAGE 
/ASSIGN 5 DISC1 DEVICEssDSRC FILEreFSRC BUFFERSS®! » SOURCE INPUT 
/ASSIGN 6 SC _— DEVICE s0LSTC » SOURCE I.ISTING 


/ASSIGN 222 DISC! FILEa(TEMP,DATA) NEW BUFFERS#1 LINKSEQ? : 

/ ACCESS®(ANY,ANYSANYSANY) ALLOCATE®(18,308,168,10). DATA DIV INT CODE 
/ASSIGN 223 DISCi FILES(TEMP,PROC) NEW BUFFERS#1 LINKSEQ} ‘ 

4 ACCESSSCANY,ANYSANYeANY) ALLOCATE®(106,300.160,10). PROC DIV INT CODE 
/ASSIGN 225 DUMMY 

JEXEC OBJs(1,SYSTEM,ILT98@) MEM®(3@0,>94C0,2500) PRTY#(1,2)3 


/ TIMEs7208 MEM? @MEM 
/ASSIGN 8 SC DEVICE ssDERR - ERROR MESSAGE 
/ASSIGN 6 SC DEVICEs#DLSTI | p PRINTOUT 

/ASSIGN +12 DISCL FILES(TEMP,DATA) DELETE BUFFERS#1 2 DATA DIV INT CODE 
/ASSIGN 213 DISC1 FILESC(TEMP,PROC) DELETE _BUFFERS®1 - PROC DIV INT CODE 
/ASSIGN 214 DISC1 FILE®C(TEMP,SCRR) NEW BUFFERS#1 RELREC} 

/ ACCESS®(ANYSANYSANYSANY) ALLOCATE®(10-300.128,10)3 

/ _. LRECL864 - REL REC SCRATCH 
ZASSIGN 223 DISCL FILESC(TEMP,ILTOUT) NEW BUFFERS®1 LINKSEQ; 

/ ACCESS#(ANYsANYSANYoANY) ALLOCATE®(10,300.128,30), ILT OUTPUT 
/ASSIGN 224 DISCL FILES(TEMP,SCRR) BUFFERSs1 , REL REC SCRATCH 
JASSIGN 238 DISC FILE#(SYSTEM,/MDEF) SHARE BUFFERS#1 - MACHINE DESCRIPT 
/EXEC OBJ#(1,SYSTEM,ASMBLR) MEN#(390,29000,2008) PRTYa(1,2)3 

/ TIME s1608 

/ASSIGN = @ DUMMY » SYSTEM MESSAGE 
/ASSIGN = 4 «DUMMY | p CONTROL/MESSAGE 
/ASSIGN 5 DISC{ FILESC(TEMP,/ILTOUT) DELETE BUFFERS#1 - ASSEMBLY INPUT 
/ASSIGN 6 SC __ DEVICEssDLSTA - ASSEMBLY LISTING 
/ASSIGN 7 DISC1 FILESC(TEMP,OBJECT) NEW BUFFERS#1 LINKSEQ} 


/ _ ACCESSSC(ANY,ANY,ANYSANY) ALLOCATE® (108.308.128.289). OBJECT OUTPUT 
ASSIGN 16 DISC1 FILEsSC(TEMP,SCRL) NEW BUFFERS#1 LINKSEQ? 

/ ACCESS= (ANY, ANY, ANY ANY) ALLOCATES (10,300,256,38). ASSEMBLY SCRATCH 
/EXEC OBJe(1,SVYSTEM,OXOLE) MEM=8(36g,20908,3808) PRTY=(1,2)3 
/ 


TIMES{808 : 
/ASSIGN S§ DYSC{ FILES(TEMP,OBJECT) DELETE BUFFERS#1 » PRIMARY INPUT/CON 
“ASSIGN 6 S8C £DEVICEssDLSTL .« LOADMAP L.IST/ERR 
/ASSIGN 8 OISCi FILESCTEMP,LM) NEW BUFFERS#1 RELREC?3 
/ ACCESSS(ANY,ANY,ANYsANY) ALLOCATE®(19,308.32,19)3 
/ LRECL#64 LOAD MOD OUTPUT 


LIBRARY 
LINKSEQ SCRATCH 
RELREC SCRATCH 


/ASSIGN _9 DISC1 FILEs(SYSTEM,USRPLX) BUFFERS#2 
ASSIGN 16 DISCA FILES(TEMP,SCRL) DELETE BUFFERS#1 
JASSIGN $3 DISCi FILES(TEMP,SCRR) DELETE BUFFERS#1 
EXEC O8Je(1,TEMP,LM) MEM= (300, 28000, 5608) PRTY#(1,2)3 
/ TIMEs1608 

/ASSIGN 6 98C DEVICEssDERR 

/ASSIGN 5 DISC1 DEVICESsDIN{ FILEs*FINt BUFFERS#1 
/A8SIGN 6 8C¢ DEVICEssD0UT! 

/ASSIGN 242 DUMMY DEVICEssDIN2 FILEs®FIN2 BUFFERS#®1 
/ASSIGN 222 DUMMY DEVICEssD0OUT2 FILEs*FOUT2 BUFFERS#1 
ZASSIGN 238 DUMMY DEVICEssOF® FILEs*FFO BSUFFERS=1 
/ASSIGN 231 DUMMY DEVICEssDF1 FILEsSFF1 8 BUFFERS#1 
7END 


ov yy * 


ERROR MESSAGE 
PRIMARY INPUT 
PRIMARY OUTPUT 
SECONDARY INPUT 
SECONDARY INPUT 
FILE @ 

FILE 1 


»>_*. 7 2 “SS * % * 
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e# CREATE PIALNK,COMMENT, "PLEXUS COMPsILT.ASMsAND LINK® 

/REPLACE PIALNK « PLEXUS COMPILE. ILT, ASSEMBLE. AND LINK . 

/EXEC OBJe(1,SYSTEMs»PLEXUS) MEM®(396,>94C0,2708) PRTYe(1,2)3 

/ TIME#720@6 MEMs MEM 

/ASSIGN @ SC DEVICE: sDERR . 

ASSIGN 5 DISC1 DEVICErsDSRC FILEt#FSRC BUFFERS#1 

ASSIGN 6 SC DEVICEssDLSTC 

/ASSIGN 222 DISC1 FILESCTEMP,DATA) NEW BUFFERS#1 LINKSEQ3 

/ ACCESS®CANY,ANYSANYSANY) ALLOCATE®(10,300,160,18). DATA DIV INT CODE 

/ASSIGN 223 DISC1 FILE2(TEMP,PROC) NEW BUFFERS#1 LINKSEQ} . 

/ ACCESS®(ANY,ANY,ANY/ANY) ALLOCATE®(10, 308,160,108). PROC DIV INT CODE 

/ASSIGN 225 DUMMY 

/EXEC ORJe(1,SYSTEM,ILT960) MEM®(390,>94C8,2500) PRTYa(1,2)3 

/ TIME=7200 MEM38MEM 

ASSIGN @ SC DEVICEs=DERR 

ASSIGN _6 SC DEVICE: sD0L8TI 

/ASSIGN 212 DISC1 FILE*(TEMP,DATA) DELETE BUFFERS#1 

/ASSIGN 213 DISC{ FILEs(TEMP,PROC) DELETE BUFFERS®! 

/ASSIGN 014 DISC{ FILESC(TEMP,SCRR) NEW BUFFERS@=1 RELREC) 

/ ACCESS=(ANY,ANY,ANYSANY) ALLOCATE®#(18,300,128-18)3 

/ LRECL964 . REL REC SCRATCH 

peesicn 223 DISC1 FILES(TEMP,ILTOUT) NEW BUFFERS#1 LINKSEQS 
ACCESSS(ANY,ANY,ANY/ANY) ALLOCATE®(16,300.128,30). ILT GUTPUT 


ERROR MESSAGE 
SOURCE INPUT 
SOURCE LISTING 


+ - . 
* . 


ERROR MESSAGE 
PRINTOUT 

DATA DIV INT CODE 
PROC DIV INT CODE 


eo “e *e ‘» 7 


Hien 224 prsci FILEsC(TEMP,SCRR) BUFFERS81 . REL REC SCRAYCH 
/ASSIGN 232 DISCi1 FILES(SYSTEM,MDEF) SHARE BUFFERS#1 » MACHINE DESCRIPT 
/EXEC OBJs(1,SYSTEM,ASMBLR) MEM#(390,29000,2000) PRTYs(1,2))3 

/ TIMEs1600 


SYSTEM MESSAGE 
CONTROL /MESSAGE 
ASSEMBLY INPUT 
ASSEMBLY LISTING 


/ASSIGN @ DUMMY 

/ ASSIGN 4 DUMMY 

/ASSIGN 5 DIScit FILES(TEMP,ILTOUT) DELETE BUFFERS#1 

/ ASSIGN 6 SC _ ODEVICEssDLSTA 

/ASSIGN 7 DISC’ FILESC(TEMP,OBJECT) NEW BUFFERS#{i LINKSEO; 


o ~*~ “e ” 


/ _ ACCESS™CANY,ANY,ANYS ANY) ALLOCATE®(18,568,126,20). OBJECT OUTPUT 
gAsotes 16 DISC{ FILEs(TEMP,SCRL) NEW BUFFERS#1 LINKSEQS 

ACCESSB(ANY,ANYSANY*S ANY) ALLOCATE®(10,308,256,38). ASSEMBLY SCRATCH 
/exeC OBJs(1,SYSTEM,OXOLE) YEM=(309,20@08,3000) PRTY#(1,2)3 


TIMEs1800 
passin 5 DIscy FILEs(TEMP,OBJECT) DELETE BUFFERS=4 . PRIMARY INPUT/CON 
/ ASSIGN 6 SC _ DEVICEssDLSTL - LOAOMAP L.IST/ERR 
/ASSIGN 8 DISC} DEVICEssDLM FILES¢(USER@1,G0) FILEssFLMs 
/ REPLACEs#RLM BUFFERS®4 RELREC?3 
/ ACCESSe (ANY ANY, ANY-ANY) ACCESSenfi ms 
/ ALLOCATE#(10,0- 32,18) ALLOCATE geLLy LRECL#64 ie LOAD MOD OUTPUT 
/ ASSIGN 9 DISC1 FILEs(SYSTEM,USRPLX) BUFFERS#2 - LIBRARY 
/ASSIGN §8 DISCS FILEs(TEMP,SCRL) DELETE BUFFERS®i , LINUSEG SCRATCH 
/ASSIGN 13 DISC1 FILEsC(TEMP,SCRR) DELETE BUFFERS81 « RELREC SCRATCH 
7END 
e# CREATE PLEXGO,COMMENT, "EXECUTE PLEXUS GENERATED L M® 
/REPLACE PLEXGO e EXECUTE PLEXUS GENERATED LOAD MODULE . 
/EXEC OBJa(1,USERO1,G0) MEM2(388,12080,12006) PRTY2(4,15)3 
/ TIMESI18@8 OBJ280B8J MEMseMEM PRTYrSPRI TIMESSTIM 


ERROR MESSAGE 
PRIMARY INPUT 
PRIMARY OUTPUT 
SECONDARY INPUT 
TERTIARY INPUT 
SECONDARY OUTPUT 
TERTIARY OUTPUT 
FILE @ 

FILE 1 


/ASSIGN 8 Sc DEVICEssDERR 

/ASSIGN 5 DISCi DEVICEssDINi FILEsSFINi BUFFERS#1 
/ASSIGN 6 SC DEVICEssD0UTI 

/ASSIGN 212 DUMMY DEVICEssDIN2 FILEs8FIN2 BUFFERS#1 
/ASSIGN o§3 DUMMY DEVICEssDINS FILEsSFINS BUFFERS#% 
/ASSIGN 222 DUMMY DEVICEssDOUT2 FILEs®FOUT2 BUFFERS#1 
/ASSIGN 223 DUMMY DEVICEssDOUTS FILE: SFOUTS BUFFERS#1) 
/ASSIGN 232 DUMMY DEVICEss0F@ FILE: SFFO BUFFERS#1 
/ASSIGN o31 DUMMY DEVICEssDF i FILEs#FFi BUFFERS#1 
7END 


ow te % % % ® “se % * 
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e# CREATE PLEXIA, COMMENT, "PLEXUS COMPILE, ILT» AND ASM* 


/REPLACE PLEXIA 


» PLEXUS COMPILE, ILT,. AND ASSEMBLE , 


/EXEC OBJs(1,SYSTEM,PLEXUS) MEM®(396,>94C09,270B) PRYY#(1,2)3 


/ TIMEs7200 MEMs=eMEM TIMEseTIo 
/ASSIGN @ SC DEVICEssDERR | 
/ASSIGN 5 DISCL DEVICEssDSRC FILEtsFSRC BUFFERS®! : 
ZASSIGN 6 SC DEVICEs#DLSTC FILE:*FLSY BUFFERSS1 : 
/ASSIGN 22? DISC FILES(TEMP,DATA) NEW BUFFERS#1 LINKSENS 
/ ACCESS®(ANY,ANYSANYSANY) ALLOCATE®(10,308,160-19). 
ASSIGN 223 DISCY FILES(TEMP,PROC) NEW BUFFERSS! LINKSEO} 
/ ACCESS2(ANY,ANYSANYsANY) ALLOCATE®(10,300,160,10). 
ZASSIGN 2395 DUMMY 

7ZEXEC OBJal(i,SYSTEMP/ILT980) MEM#®(390,>94C0,2508) PRTYa(i,2)3 

/ TIME#72@0 MEMseMEM TIMEssTIo ; 
/ASSIGN @ SC DEVICE: #DERR : 
/ASSIGN 6 SC DEVICEssOLSTI FILE:*FLST BUFFERS#1 . 
JASSIGN #12 DISCL FILES(TEMP,DATA) DELETE BUFFERS#1 
/ASSIGN 213 DISCL FILE#(TEMP,PROC) DELETE BUFFERS#1 fi 
/ASSIGN 2714 DISCL FILE=(TEMP,SCRR) NEW BUFFERS#1 RELREC) 

/ ACCESS*#(ANY,ANY,ANY/ ANY) ALLOCATES(10,300,126-10)3 
/  LRECL®#64 

/ASSIGN 223 DISC1 FILESC(TEMP,ILTOUT) NEW BUFFERS#1 LINKSEQs | 
/ ACCESS®(ANY,ANYSANY*ANY) ALLOCATES (18,308.128,30), 
/ASSIGN 224 DISCL FILESC(TEMP,SCRR) DELETE BUFFERS#1 u 
/ASSIGN 4538 DISC FILESC(SYSTEM,MDEF) SHARE BUFFERS#1 ; 
/EXEC OBJs(1,SYSTEM,ASMBLR) MEM®(390,20080,20088) PRTYs(1,2)3 

/ TIMEsi800 

/ASSIGN = @ DUMMY : 
/ASSIGN 4 DUMMY . 
ASSIGN 5 DISCi FILES(TEMP,ILTOUT) BUFFERS@] 
/ASSIGN 6 SC _ DEVICErsOLSTA FILES *FLSY BUFFERS#1 : 
/ASSIGN 7 DISCi DEVICEssDOBJ FILEs(USERA1,ASMOUT) FILE3*FOBJ?3 
/ REPLACE BUFFERS#1 LINKSEG ACCESS@C(ANYsANY ANY SANY) 3 
/ ACCESSs#COBJ ALLOCATE®(1,0,128,28) ALLOCATES sLOBJ. 
/ASSIGN 16 DISC1 FILES(TEMP,SCRL) NEW BUFFERS#1 LINKSEQ; 

ae ACCESS®#(ANY,ANY.ANY*ANY) ALLOCATES (10-308,256,30) 
/ 


FRROR MESSAGE 
SOURCE INPUT 
SOURCE |.ISTING 


DATA DIV INT CODE 


PROC DIV INT CODE 


ERROR MESSAGE 
PRINTOUT 

DATA DIV INT CODE 
PROC DIV INT CODE 


« REL REC SCRATCH 


ILT OUTPUT 
REL REC SCRATCH 
MACHINE DESCRIPT 


SYSTEM MESSAGE 
CONTROL/MESSAGE 
ASSEMBLY INPUT 
ASSEMBLY LISTING 


OBJECT OUTPUT 
ASSEMBLY SCRATCH 
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o# CREATE PLEXUP,COMMENT,"PLEXUS GENERATED UPDATE LPF ® 
/REPLACE PLEXUP e PLEXUS COMPILE, ILT. ASSEMBLE MODULE ANN 
EXEC OBJe(1,SYSTEM,PLEXUS) MEM®(398,>94C@,2708) PRTYs(1.2)3 


/ TIMES7200 MEMt=MEM TIME eTIM : 
/ASSIGN @8 SC _ DEVICEs®DERR | : 
/ ASSIGN 5 DISCi DEVICErsOSRC FILE:sFSRC BUFFERS#1 Fs 
“ASSIGN 6 sc DEVICE:sDLSTC FILE:*FLST BUFFERS#1 « 
/ASSIGN 222 DISC{ FILESC(TEMP,DATA) NEW BUFFERS#1 LINKSEQ?3 

/ ACCESS (ANYsANY,ANYeANY) ALLOCATES (10,509,169, 18). 
/ASSIGN 223 DISC FILEsS(TEMP,PROC) NEW BUFFERS#1 LINKSEG} ; 
/ ACCESSS(ANY,ANY,ANYSANY) ALLOCATE#(16,308.160,12). 
/ASSIGN 225 DUMMY 

/EXEC OBJe (i, SYSTEM,ILT98A) MEM#(390,794C9,2500) PRTY#(1,2)3 

/ TIMES72@8 MEMS=sMEM TIME: sTIM . 
/ASSIGN @ SC DEVICEs#DERR . 
7ASSIGN 6 SC . DEVICEs#DLSTI FILEs*FLST BUFFERS#1 , 
/ASSIGN 212 DISCL FILEs(TEMP,DATA) DELETE BUFFERS#1 ‘ 
/ASSIGN 213 DISCI FILEs(TEMP,PROC) DELETE BUFFERS#} ° 
/JASSIGN 2014 DISC1 FILESCTEMP,SCRR) NEW BUFFERS#1 RELREC?3 

/ ACCESS#(ANY,-ANY,SANYeANY) ALLOCATE = (18,360,128,10)3 
/ LRECL #64 

/JASSIGN 223 DISCi FILESC(TEMP,ILTOUT) NEW BUFFERS#!1 LINKSEQ} 

/ ACCESS BCANYSANYLANYSANY) ALLOCATES (10,300,128, 30). 
/ASSIGN 224 DISCi FILESC(TEMP,SCRR) DELETE BUFFERS! 2 
/ASSIGN 239 DISCE FILES(CSYSTEM,MDEF) SHARE BUFFERS#s% i 
/EXEC OBJa(1,SYSTEM,ASMBLR) MEM®(390,29080,2808) PRTYs(1,2)3 

/ TIMEs1800 ; 
/ASSIGN 8 DUMMY . 
/ ASSIGN 4 DUMMY i 
/ ASSIGN 5 prscit FILESC(TEMP,ILTOUT) DELETE BUFFERS#1 : 
/ASSIGN 6 sc DEVICEssDLSTA FILEs*FLSY BUFFERS#! 3 
/ASSIGN 7 DISCi FILES(TEMP,ASMOUT) NEW BUFFERS#s! LINKSEO; 

/ ACCESSS(ANY-ANY.ANY*ANY) ALLOCATE®#(198,308.128. 2A). 
ASSIGN 16 DISCS FILESC(TEMP,SCRL) NEW DELETE BUFFERS#13 

: LINKSEQ ACCESSS(ANYsANYSANYSANY) 3 


ALLOCATES (18,30809,256,39) 
vexec OBJs(1,SYSTEM,LPFBLDO) MEM= (300, 8908,3080) PRTY#(1,2)3 


TIMEset : 
TASSIGN @ DUMMY ; 
/ASSIGN 5 DISC! DEVICEssDOBJ FILES(TEMP,ASMOUT) BUFFERS*1~ , 
/ASSIGN 6 SC ODEVICEssDLSTU FILES®FLSY BUFFERS#1 . 
ASSIGN 9 DISCL DEVICE: sDUPD FILEs(SYSTEM,DXLPF) FILEssFUPD3 
/ BUFFERS82 . 


/END 

o# CREATE RESTLP,COMMENT, *RESTORE LPF FROM MY TO DISC * 
/REPLACE RESTLP e RESTORE LPF FROM MAG TAPE TO DISC , 
EXEC OBJe(1,SYSTEM,DXCOPY) MEM®(390,4g08,3000) PRTYS(1,2)3 
/ TIMEsel MEMS SMEM 


/ASSIGN 5 DUMMY DEVICEs=DCON | : 
/ASSIGN 6 SC DEVICEs#DLST FILE: sFLST BUFFERS#! : 
/ASSIGN 7 DISC) DEVICEseDOUT FILEs(SYSTEM,LPF) FILEt=FOUTS 

/ REPLACE BUPFERSs2 BUFFERS: #B0UT INDEXED? 

/ ACCESS#(ANYSANYsANYSANY) ACCESS SCOUTS 

/ ALLOCATES(2,0,128,58) ALLOCATEseLOUT KEYLENS6 
ghasien 8 MT1 DEVICErsDIN FILEseFIN BUFFERS®2 
/ 


UPDATE |.PF . 


ERROR MESSAGE 
SOURCE INPUT 
SCURCE LISTING 


DATA DIV INT CODE 


PROC DIV INT CODE 


ERROR MESSAGE 
PRINTOUT 

MATA DIV INT CODE 
PROC DIV INT CODE. 


- REL REC SCRATCH 


TILT OUTPUT 
REL REC SCRATCH 
MACHINE DESCRIPT 


SYSTEM MESSAGE 
CONTROL/MESSAGE 
ASSEMBLY INPUT 
ASSEMBLY LISTING 


OBJECT OUTPUT 


o ASSEMBLY SCRATCH 


CONTROL 
OBJECT INPUT 
UPDATE LISTING 


UPDATE FILE 


CONTROL/MESSAGE 
LISTING 


OUTPUT 
INPUT 
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.# CREATE SMR 
/REPLACE SMR 


esCOMMENT, "SOURCE MAINTENANCE ROUTINE * 
e SOURCE MAINTENANCE ROUTINE . 


/EXEC OBJs(1,SYSTEM,SMR) MEMS (300,11508,5988) PRTYsS(1,15)3 


/ 

ASSIGN 
/ ASSIGN 
/ ASSIGN 
ASSIGN 
/ASSIGN 
/ 


/ 
/ASSIGN 
/ 

/ 
/ASSIGN 
/ ASSIGN 
/ ASSIGN 
/END 


226 
235 
245 


TIMEs=] MEMS sMEM 


SC DEVICE: s0MSG 
Sc DEVICEssDCON FILE:sFCON BUFFERSS1 
DUMMY DEVICEssOLST FILeEssFLST BUFFERS=1 


MT¢§ DEVICEssDOLD FYLEesFoLO BUFFERS#1 LINKSEQG 


> DUMMY DEVICEs:s0C0OM FILEssFCOM REPLACE?#RCOMs 


BUFFERS#1 LINKSEQ ACCESSsCANY,ANYsANYSANY DB 
ALLOCATE? sLCOM 

DUMMY DEVICE: sDNEW FILEtsFNEW REPLACE 3 sRNEW? 
BUFFERS#1 LINKSEQ ACCESS@CANY.SANY,ANYeANY) 3 
ALLOCATES ®LNEW 

DUMMY 

DUMMY DEVICEtsDEV35S FILE:8FIL35 BUFFERS#2 
DUMMY DEVICEtsDEV45 FILE:*FIL45 BUFFERS#2 


o# CREATE SMRASM,COMMENT, "SMR, ASM, ANT UPDATE LPF , 


/REPLACE SMRASM. 


e SHR, ASM, UPDATE LPF . 


7EXEC OBJs(1,SYSTEM,SMR) MEM=(309,11520,5008) PRTY#(2,15)3 


~~ te % * 


_7~ ew * 


ERROR/USER MSG 
CONTROL 

LISTING 

OLD LIBRARY FILE 


COMPILE OUT FILE 


NEW LIBRARY FILE 

JCL UPDAT CON OUT 
INCLUDE L.UN OPT 1¢ 
INCLUDE L.UN OPT 2 


ERROR/USER MSG 
CONTROL 

LISTING 

OLO LIBRARY FILE 
COMPILE OUT 
NEW LIBRARY 
JCL CON OUT 
INCLUDE 1.UN 
INCLUDE {.UN 


FILE 
FILE 
FILE 
OPT 
OPT 


SYSTEM MESSAGE 
CONTROL/MESSAGE 
ASSEMBLY INPUT 
ASSEMBLY LISTING 


OBJECT OUTPUT 


- ASSEMBLY SCRATCH 


e‘we w * 


/ TIMEso{ 

/ ASSIGN @ DUMMY 

/ ASSIGN 4 Sc DEVICEssDCON FILEssFCON BUFFERS®1 

/ ASSIGN 6 DUMMY DEVICEss0LST 

/ASSIGN 245 MT¢ DEVICE:s00LD FILEseFoLD BUFFERS®1 

/ASSIGN 222 DISC1 FILES(TEMP,SMRWRK) NEW BUFFERS#1 LINKSEQ; 
/ ACCESSS(ANY,SANY,ANYS ANY) ALLOCATE® (2, 300,128,208) 
/ASSIGN 225 DUMMY 

/ASSIGN 226 DUMMY 

/ASSIGN 235 DUMMY 

/ASSIGN »45 DUMMY 

/EXEC OBJe (1,SYSTEM,ASMBLR) MEM®(390,20080,2008) PRTY#(1,-2)3 
/ TIMEs180¢ 

ASSIGN 8 DUMMy 

/ ASSIGN 4 DUMMY 

/ ASSIGN 5 DISCi FILEsSCTEMP,SMRWRK) DELETE BUFFERS®} 

/ ASSIGN 6 sc OEVICEssDLST 

“ASSIGN 7 DISC{1 FILES(TEMP,ASMOUT) NEW BUFFERSS{ LINKSEQ} 
/ — ACCESS=(ANY,ANY,ANYsANY) ALLOCATE®(198,300,128,38). 
“ASSIGN 46 DISCi1 FILEs(TEMP,SCRL) NEW DELETE BUFFERS#{1) 

f LINKSEQ ACCESS#(ANYsANY,ANYSANY) 3 

/ ALLOCATE#(18,300,256,39) 

/EXEC OBJe(1,SYSTEMSLPFBLD) MEM®(300,86989,30900) PRTY=(1,2)3 
/ TIMEs~1i 

ZASSIGN @ DUMMY 

ASSIGN 5 DISC1 FILE=C(TEMP,ASMOUT) BUFFERS#1 

/ ASSIGN 6 SC DEVICEssDLST 

/ASSIGN 9 DISC1 DEVICEssDUPD FILEs(SySTEM,OXLPF) FILEssFUPD 
/ BUFFERS#2 

7END 
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OBJECT INPUT 
UPDATE LISTING 


UPDATE FILE 
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e# CREATE SMRPLX,COMMENT, "SMR,PLEXUS,ILT»/ASM,UPDAT LPF® 


/REPLACE SMRPLX 


« SMR, PLEXUS, ILT, ASM, UPDATE LPF , 


/EXEC OBJs(1,SYSTEM,SMR) MEM® (388,11500,5080) PRTY=(1.15)3 


/ 
/ ASSIGN 


/ASSIGN 
7 ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ 

/ASSIGN 
/ ASSIGN 
/ASSIGN 
/ ASSIGN 


4 

6 
245 
222 
225 
226 
235 
245 


/EXEC OBJs(1,SYSTEMsPLEXUS) MEM®(390,>94C0,2500) PRTYs(1, 297 


/ 
/ ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ 
/ ASSIGN 
/ 
/ ASSIGN 


TIMEs7200 MEM: sMEM 


@ DUMMY | ‘ 
5 DISC1 FILES(TEMP,SMRWRK) BUFFERS! - 
6 SC DEVICE: #0LST | : 
222 DISC1 FILES(TEMP,DATA) NEW BUFFERS#1 LINKSEQ3 
ACCESSS(ANY,ANYSANY/ ANY) ALLOCATE®(18,300,160,12). 

223 DISC1 FILES(TEMP,PROC) NEW BUFFERS=1 LINKSEQ} 


225 


ACCESSB(ANY,ANY,ANYSANY) ALLOCATES (10,300.160,19). 
DUMMY 


EXEC GRJel(i,SYSTEM,ILT96G) MENS (3SG6,>94C00,2508) PRTYs(i,2)3 


/ 

/ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ASSIGN 
/ 


/ 
/ASSIGN 
/ 


‘ 
6 
212 
a13 
214 


223 


TIME27200 MEMs eMEM 

DUMMY 

SC DEVICEssDLST 

DISC4 FILESC(TEMP,DATA) DELETE BUFFERS#®1 
DISCi FILEs(TEMP,PROC) NELETE BUFFERS#1 
DISCi FILEsC(TEMP,SCRR) NEW BUFFERS#1 RELREC} 
ACCESS#(ANY,ANY,ANYsANY) ALLOCATE® (16,588,126, eit); 


i REC! 64 
ae wy 


DISci FILESC(TEMP,ILTOUT) NEW BUFFERS#1 LINKSEQ; 
ACCESS (ANYsANYeANYS ANY) ALLOCATES (18,508,128, 30), 


ose * %~ °* 


/ASSIGN 224 DISCL FILES(TEMP,SCRR) DELETE BUFFERSS1 , 


/ASSIGN 238 DISCL FILES(SYSTEM,MDEF) BUFFERS#1 


JEXEC OBJs(1,SYSTEM,ASMBLR) MEM®(390,20000,2008) PRTY#(1,2)3 


/ 

/ ASSIGN 
/ASSTGN 
/ASSIGN 
/ ASSIGN 
/ASSIGN 
ZASSIGN 
/ 


/ 
/EXEC OBJe(1,SYSTEM.LPFBLD) MEM@(3Q0, 8g02,3000) PRYV#(1,2)3 
/ 


/ASSIGN 
/ASSIGN 
/ ASSIGN 
/ ASSIGN 


/ 
ZEND 


) 
4 
5 
6 
7 


16 


@ 
5 
6 
9 


TIME#!1820 ; 
DUMMY ? 
DUMMY is 
OISCi1 FILESCTEMP,ILTOUT) DELETE BUFFERS#1 , 
sc DEVICEs:sDLST ‘ 
DISCi FILES(TEMP,SMRWRK) BUFFERS#1 . 
DISC! FILEsS(TEMP,SCRL) NEW DELETE BUFFERSs=13 
LINKSEQ ACCESS®(ANYsANYsANY,SANY) 3 

ALLOCATES (18,300,256, 30) 


TIMEse1 

DUMMY 

DISCi FILEs(TEMP,SMRWRK) BUFFERS#1 
8C DEVICEssDLST 

DISC1 DEVICEssDUPD FILEs(SYSTEM,DXLPF) FILES #FUPO) 
BUFFERS#2 


% % * 


TIMEs-} 

DUMMY | . ERROR/USER MSG 
SC. DEVICEssDCON FILEssFCON BUFFERS#1 > CONTROL 

DUMMY DEVICEs#DLST - LISTING 

MTf DEVICEssDOLD FILEs=FOLD BUFFERS#! . OLD LIBRARY FILE 
DISC1, FILESC(TEMP,SMRWRK) NEW BUFFERS#1 LINKSEQ? | 
ACCESS®(ANY,ANY,ANYeANY) ALLOCATE®(2,300,128,38) . COMPILE OUT FILE 
DUMMY . - NEW LIBRARY FILE 
DUMMY - JCL CON OUT FILE 
DUMMY e INCLUDE (UN OPT 
DUMMY « INCLUDE LUN OPT 


FRROR MESSAGE 
PRIMARY INPUT 
SOURCE I.ISTING 


DATA DIV INT CODE 


PROC DIV INT CODE 


ERROR MESSAGE 
PRINTOUT 

NATA OIV INY CODE 
PROC DIV INT CODE 


ILY OUTPUT 
REL REC SCRATCH 


« MACHINE DESCRIPT 


SYSTEM MESSAGE 
CONTROL /MESSAGE 
ASSEMBLY INPUT 
ASSEMBLY LISTING 
OBJECT OUTPUT 


- ASSEMBLY SCRATCH 


CONTROL 
OBJECT INPUT 
UPDATE I.ISTING 


UPDATE FILE 
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e# CREATE YANK ,COMMENT, "FETCH JCL SEQUENCE " 
/REPLACE YANK e FETCH JCL SEQUENCE . 

/EXEC OBJs(1,SYSTEM,SHR) 4EM8(309,11509,5008) PRTYS(1.,15)3 
/ TIMEse{ MEM3SeMEM PRTytePRI TIMEse TIM 


ERROR/USER MSG 
CONTROL 

LISTING 

OLD LIBRARY FILE 


/ASSIGN  @ DUMMY 
/ASSIGN 4 SC DEVICE: 2DCON 

/ ASSIGN 6 DUMMY DEVICErsDLST : 

/ASSIGN 215 DISCL FILE#(SYSTEM,JCLSRC) BUFFERS#=1 

/ASSIGN 222 DISCi FILE#(TEMP,COMPIL) NEW BUFFERS#1 LINKSEO} 


>» ~*~ ~ 


/ ACCESSBCANY,ANY,ANYsANY) ALLOCATES (1,8,256,3) : COMPILE OUT FILE 
/ASSIGN 225 DUMMY . NEW LIBRARY FILE 
/ASSIGN 226 DISCi FILES(SYSTEM,JCLCUP) REPLACE BUFFERS#1}3 
/ LINKSEQ ACCESS#(ANYsANY,ANY,ANY)S ; 

ALLOCATES (1,0,64,1) - JCL UPDAT CON OUT 
FEXEC OBJs(1,SYSTEM,BLDEDT) MEM® (300,550, 2000) PRTY#(1,15)3 
/ TIMEs@{ MEMSeMEM PRTysePRI TIMES sTIM : 
/ASSIGN 16 DISC FILEs(TEMP,COMPIL) BUFFERS#1 - SOURCE INPUT 
/JASSIGN 2@ DISC1i FILEsS(SYSTEM,JCWORK) REPLACE BUFFERS#23 
/ INDEXED ACCESS=#(ANYSANY,ANY, ANY)? 
ce ALLOCATE#(1,0,256,3) KEYLEN#2 - SOURCE OUT FILE 
7END 
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APPENDIX C 
ADDING TO ITS 


C.l ITS INTERNAL STRUCTURE 
NOTE 


The ITS design includes the ability to support a 
polled terminal for future expansion. This fea- 
ture does not apply to the hardware currently 
supported with DX980. 


Before modifying ITS or adding application programs to run under ITS, the 

programmer must understand the structure of the subsystem. The subsys- 
tem consists of four main parts: Terminal Process Monitor, Terminal 1/O 
subroutines, Supervisor, and individual application programs. Figure C.1 

illustrates the interrelation of these components. The following paragraphs 
explain the operation of each component. 


1/O SUBROUTINES 
ITFDIO 


FULL 
DUPLEX 
170 


TERM INAL 
PROCESS 
MONITOR 


ITSUPV 


SUPERVISOR 


ITSTAT 


READ 
STATUS 


APPLICATION PROGRAMS 


POLLED 
BUFFER 
1fo 


REMOTE 
JOB 
ENTRY 


INTERACTIVE 
FILE 
EDITOR 


(A)130112 


Figure C-1. ITS Components 
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C.1.1 TERMINAL PROCESS MONITOR 


The Terminal Process Monitor (ITTPMN) is the main task for ITS and coor- 
dinates the operation of the other tasks in the subsystem. Figure C-2 pro- 
vides a conceptual flow chart for ITTPMN. The monitor calls two subrou- 
tines, scans the PRCESS flag for each of the terminals connected to it and 
activates the I/O subroutines. 


C.1.1.1 ITINIT. WhenITS is first activated, the monitor calls the ITINIT 
subroutine. This subroutine examines the Logical Device Tables (LDT) for 
the job, to determine what terminals are under control of ITS, and the DX980 
Physical Device Table (PDT) for the assigned devices, to determine the 
characteristics of each terminal. (ITS uses a special SVC so that these func- 
tions can be performed while executing in the protected mode.) From this 
information the subroutine builds a terminal list in the ITS workspace area 
for each terminal assigned toITS. The list contains the characteristics of 
the terminals. Table C-1 defines the information contained in a list entry 
for one of the terminals. 


In addition to building a terminal list, ITINIT allocates one I/O buffer for 
each full duplex terminal and a specified number of I/O buffers to support 
polled terminals. Each full duplex 1/O buffer is permanently assigned to the 
full duplex terminal. The polled terminal I/O buffers are dynamically as- 
signed. ITINIT also allocates one Physical Record Block (PRB) and creates 
one I/O task for each I/O buffer. The 1/O tasks for full duplex buffers use 
the reentrant procedure, ITFDIO. The 1/O tasks for polled buffers use the 
reentrant procedure, ITPBIO. ITINIT sets the Read Terminal (RDTRM) flag 
for each of the terminals and starts them in their respective I/O task. When 
all I/O tasks are created, ITINIT returns controltoITTPMN. The I/O tasks 
are described later in this section. 


C.1.1.2 TERMINAL LIST SCAN. WhenlITINIT returns to ITTPMN, the 
monitor starts scanning each entry in the Terminal List to determine if any 
PRCESS flags are set. The PRCESS flag indicates that the terminal operator 
has entered a complete record that is ready for processing by ITS. When 
ITTPMN encounters a terminal entry with a set PRCESS flag, it calls the 
Supervisor (ITSUPV) to service the request from the terminal. If ITTPMN 
scans the entire Terminal List without finding a set PRCESS flag, it suspends 
itself for one-half second. At the end of the delay period, ITTPMN reacti- 
vates and begins the table scanagain. Each scan cycle after the delay period 
begins with the first entry in the list and continues sequentially through the 
list until it reaches the end or detects a PRCESS flag. When returning to the 
scan cycle after servicing a PRCESS flag, the scan starts at the terminal 
following the serviced terminal inthe list. ITTPMN does not take the one- 
half second delay at the end of a cycle if it has serviced a terminal during that 
cycle. 
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Figure C.2,. Terminal Process Monitor Conceptional Flow Chart 
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Table C.1. 


TYPTRM 


PRCESS 


WRTTRM 


LUN 


TRMTSK 


UCBPTR 


PRBPTR 


TRBFLN 


ITS Terminal List Entry 


Read Terminal Flag: Setting this flag in- 
structs the I/O task for the terminal to 
issue a Read Terminal I/O call. 


Terminal Type: If this bit is a 0, the cor- 
responding terminal is a full duplex termi- 
nal; if this bitis al, the terminalis a 
polled terminal. 


Process Flag: The terminal I/O task sets 
this flag to indicate to ITTPMN that data 
from the corresponding terminal is ready 
for processing. 


Write Terminal Flag: Setting this flag in- 
structs the I/O task for the terminal to 
issue a Write Terminal I/O call. 


Buffer Number: This number indicates 
which of the polling buffers has been dy- 
namically assigned to this terminal. This 
field is not used for full duplex terminals. 


Logical Unit Number: Indicates which 
LUN that the terminal responds to. 


Terminal Task: Task identification of the 
last 1/O task that serviced this terminal.. 
This field is static for a full duplex termi- 
nal and dynamic for a polled mode terminal. 


User Control Block Pointer: The location 
of the user control block for the terminal. 


Physical Record Block Pointer: The loca- 
tion of the PRB for the terminal. This 
field is static for a full duplex terminal and 
dynamic for a polled mode terminal. 


Terminal Buffer Length: The number of 
characters that can be put into the buffer 
for the terminal. 
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C.1.1.3 ITSUPV. ITTPMN calls the ITSUPV to service a terminal whose 
PRCESS flag is set. ITSUPV is a major part of ITS and is discussed in de- 
tail later in this section. During processing, ITSUPV resets the PRCESS 

flag so that it will not be recognized again during the next table scan. How- 
ever, application programs called by ITSUPV may set the PRCESS flag again 
if they do not complete processing. If ITSUPV requires additional input from 
the terminal, it sets the RDTRM flag before returning to ITTPMN; if data out- 
put to the terminal is required, ITSUPV sets the WRTTRM flag before re- 


turning to ITTPMN. 


C.1.1.4 TERMINAL I/O. If either the RDTRM or the WRTTRM flag is set 
when ITSUPV returns to ITTPMN, the monitor issues a POST to activate an 
I/O task. If the terminal operates in full duplex mode, the monitor activates 
a task using the ITFDIO procedure; if the terminal is a polled terminal, the 
monitor activates a task using the ITPBIO procedure. Hither of these tasks 
(initially created by ITINIT) transfers data to and from the terminal device 
by issuing I/O supervisor calls. 


C.1.2 FULL DUPLEX I/O TASK (ITFDIO) 


When building the Terminal List, ITINIT determines if a terminal is operat- 
ing in full duplex mode. For full duplex terminals, ITINIT allocates memory 
to supply a terminal buffer (including one extra word for format control) and 
a Physical Record Block (PRB) for that terminal. It aiso creates a task with 
pointers to the PRB and the Terminal List as arguments and places the task 
identification in word 1 of the Terminal List entry for that terminal. The 
task, the terminal buffer and the PRB remain associated with the terminal. 
ITFDIO uses information in the terminal list to direct 1/O operations between 
the ITS and the full duplex terminal. Figure C-3 illustrates the functions 
performed by the subroutine. 


C.1.2.1 TASK INITIATION. Before ITINIT creates a terminal task for 
ITFDIO, it sets the RDTRM flag in the Terminal List entry for that terminal. 
Therefore, when ITFDIO begins execution, it issues an I/O SVC to read data 
from the terminal. ITINIT starts tasks for each terminal in the system in 
the same manner, so that when ITINIT returns control to ITTPMN, alli ter- 
minal tasks are waiting for input from the corresponding terminals. 


C.1.2.2 PROCESS REQUEST. When the operator enters a complete rec- 
ord of data at the terminal, the data terminal Device Service Routine (DSR) 
returns control to ITFDIO. ITFDIO then resets the RDTRM flag to indicate 
the completion of a read operation, and sets the PRCESS flag to indicate that 
the data is in the input buffer and requires attention from ITSUPV. ITFDIO 
then suspends processing to wait for either the RDTRM or the WRTTRM flag 
to set. 
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Figure C-3, ITFDIO Conceptual Flow Chart 
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C.1.2.3 RESPONSE TO TERMINAL. If ITSUPV, or a subordinate applica- 
tion subroutine, produces data in response to.a terminal request, it also sets 
the WRTTRM flag after filling the terminal buffer with data to be written to 
the terminal. This flag causes ITTPMN to post the ITFDIO task for that ter- 
minal and instructs that task to issue a Write Terminal I/O SVC. If more 
data is required, RDTRM is set. If both WRTTRM and RDTRM are set, the 
I/O is performed in the order of write and then read. Neither ITSUPV or the 
subordinate applications issue I/O SVCs to communicate directly with the ter- 
minals. 


C.1.2.4 DISPLAY SIZE. During construction of the Terminal List, ITINIT 
determines the display size of the terminal from the PDT. The display size, 
plus the format control word, determines the allocated buffer size for the 
terminal, and also specifies the length field in the PRB when the terminal is 
opened. Buffer lengths for the terminal devices are as follows: 


e Teleprinter - 82 characters 
® Teletype - 74 characters . 
e CRT - variable up to 1922 characters 


If available memory cannot support several terminals with a 1922 character 
display, the PDT can be modified to reduce the display size. The display 
size for CRTs can be reduced to 80 characters so that the CRT responds as 
a teleprinter. 


C.1.3 POLLED TERMINAL I/O TASK (ITPBIO) 


The polled I/O routine (ITPBIO) is a reentrant subroutine that, unlike 
ITFDIO, does not require a task for each terminal. Instead, ITINIT creates 
a task for each polling buffer. The number of polling buffers can be signifi- 
cantly less than the number of terminals. Figure C-4 illustrates the func- 
tions performed by the subroutine. 


C.1.3.1 TASK INITIATION. When ITINIT determines that there is one or 
more polled terminals assigned to ITS, memory is allocated for a specified 
number of polling buffers and PRBs. The number of polling buffers specified 
for the standard ITS is two. Although this number can be increased, two 
should be adequate for most applications. Unlike full duplex terminals, a 
task is not created for ITPBIO when a polled terminal is added to the terminal 
list. However, like full duplex terminals the RDTRM flag is set. After all 
terminals have been added to the terminal list, ITINIT allocates memory for 
a buffer and PRB, and creates a task for each polling buffer. The first time 
through, ITPBIO does not issue a terminal read since ITINIT does not specify 
which terminals should be polled. Thus control goes immediately to an SVC 
to suspend ITPBIO until posted by ITTPMN. 
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Figure C-4, ITPBIO Conceptual Flow Chart 
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C.1.3.2 PROCESS REQUEST. ITTPMN checks the status of the polling 
buffers and the polling lines (communication modules) if: 


1) aterminalis ready for processing and ITTPMN calls ITSUPV, or 


2) no terminalis ready for processing and ITTPMN suspends itself 
for one-half second. 


If both a polling buffer and a line are free, ITTPMN issues a post for the ap- 
propriate ITPBIO together with a pointer to the line to be polled. 


After receiving control, ITPBIO issues a read to each terminal on the polling 
line in succession. If a terminal user has pressed the transmit key prior to 
issuance of the read to his terminal, the screen data is transferred when the 
read is issued. If the transmit key has not been pressed, the terminal does 
not respond and the DSR returns control to ITPBIO with a record length of 
zero. This record length is treated as a negative response and a read is 
issued to the next terminal on the line. The first positive response termin- 
ates the poll and the PRCESS flag is set for the corresponding terminal. 
ITPBIO then issues a suspend SVC to wait for another post. 


C.1.3.3 RESPONSE TO TERMINAL. The WRTTRM flag can be set by 
-ITSUPV ora subordinate application subroutine. This causes a post to the 
appropriate ITPBIO task for data transfer. After the data is transferred, 
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releases the buffer and issues a suspend SVC. If RDTRM is not set, ITPBIO 
sets PRCESS and does not release the buffer. This process allows a pro- 
gram to maintain a buffer throughout a series of data transfers to a terminal. 


C.1.3.4 DISPLAY SIZE. When ITINIT determines that polling buffers are 
required, it also determines the largest display size for the terminals to be 
polled. It then allocates memory to each buffer that corresponds to the maxi- 
mum size. 


C.1.4 SUPERVISOR (ITSUPV) 


The ITS Supervisor (ITSUPV) is a combination state and table driven control- 
ler that acts as an intermediary between ITTPMN and the application pro- 
grams that run under ITS. When ITINIT initializes a terminal, it creates a 
table of parameters, called the User Control Block (UCB), that stays with the 
terminal as long as it is assigned to ITS. The information within the UCB 
varies with the user program that is currently using the terminal. Table C.2 
defines the information fields within the UCB. When control transfers to 
iTSUPV to service a particular terminal, it clears the Terminal List flags 
for that terminal and examines the state-field of the UCB to determine what 
type of servicing is required. Figure C-5 illustrates the logical sequence of 
events within ITSUPV. Table C-3 defines the terminal states and the actions 
required of ITSUPV to service a terminal in that state. 
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Table C-2. ITS Terminal User Control Block (UCB) 


USERID User Identification: This field contains the 
<userid> that is entered at the terminal during a 
Logon operation. Not validated by current 
ITSUPV. Reserved for future accounting software. 


ACCTNO Account Number: This field contains the <acctno> 
that is entered at the terminal during a Logon op- 
eration. Not validated by current ITSUPV. Re- 
served for future accounting software. 


Terminal State: This field contains a number that 
indicates to ITSUPV how to respond to a service 
request from the terminal. 


TRMPTR Terminal Pointer: This field contains the mem- 
ory address of a table of device characteristics 
for the terminal. 


Operation Pointer: This field contains space for 
the application program to load a pointer for its 
use. 


TIMEON Clock Time of Logon: This field is not used by 
the standard ITS. 


DATEON Calendar Date of Logon: This field is not used by 
the standard ITS, 


TRMLNS Terminal Lines: This field specifies the number 
of lines on the display unit. 


LINLEN Line Length: This field specifies the length of 
each display line. 


These fields provide intermediate storage of 
parameters for the application program currently 
using the terminal. 
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Figure C-5. ITSUPV Conceptual Flow Chart 
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Table C.3. User Control Block State Definitions 


State Number Terminal Conditions/Requirements 


Inactive: User has not entered a Logon command to 
identify himself. ITSUPV checks only for a Logon 
command. 


Ready: User has logged-on, but has not as yet re- 
quested any application program. 


Edit: User is currently running the Interactive File 
Editor (ITIFE) application program. ITSUPV calls 
ITIFE to process request. 


Remote Job Entry: User is currently running the Re- 
mote Job Entry (ITRJE) application program. ITSUPV 
calls ITRJE to process request. 


Status: User is currently running the Status Display 
(ITISTAT) application program. ITSUPV calls ITSTAT 
to process request. 


User Program: User is currently running an applica- 
tion program not normally supplied with ITS. ITSUPV 
transfers control to the user program if the program 
has been entered in the table of recognizable code for 
LESUPN:. 


C.1.4.1 STATE 0. If the UCB State field is zero, the user has not pre- 
viously entered data from the terminal. Therefore, the first command from 
the terminal must be a Logon command to identify the user. In State 0 
ITSUPV calls the command scanner to examine the input code. If the input 
code does not contain a Logon command, ITSUPV returns control to ITTPMN 
without further processing. If the code contains a Logon command, ITSUPV 
validates the syntax, transfers the pertinent data to the UCB and places a 
Ready indication in the 1/O buffer. It then sets the WRTTRM flag to ensure 
that the Ready indication is sent to the terminal and sets the RDTRM flag to 
enable the user to respond by entering the next command. ITSUPV then 
places a value of 1 in the State field of the UCB before returning control to 
ITTPMN. | 


C.1.4.2 STATE 1. If the UCB State field is one, the user has logged-on, 
but has not as yet indicated an application program. ITSUPV then calls the 
command scanner to examine the input code (see Section V for a de- 
scription of the command scanner). The input command must be one of the 
commands that ITSUPV can recognize. The standard ITS system provides a 
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table of commands that allows ITSUPV to recognize the following input com- 
mands and their appropriate arguments: 


EDIT 
ENTER 
LOGOFF 
JOB 
RUN 
STATUS 
DELETE 


Any user programs that are added to ITS must also add at least one command 
to this list that will link ITSUPV to the user program. ITSUPV processes the 
Logoff command. Application programs process all other commands. If an 
application program processes the command, ITSUPV transfers control to 
that program with a Branch and Link (BRL) instruction. Pointers to the ter- 
minal list entry and to the command scanner data arrays accompany the com- 
mand to the application program. The application program, therefore, has 
access to all control blocks for the terminal, plus the command and argu- 
ments that were entered at the terminal. 


C.1.4.3 OTHER STATES. If the UCB State field is greater than one, 
ITSUPV transfers control directly to the application program. Terminals in 
this state have previously used an application program. That program set 
the state field to a value that returns control to the program for further in- 
put, or that logs-off the user from that program. ITSUPV does not process 
commands in these higher states. Therefore, the application program must 
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C.1.5 APPLICATION PROGRAMS 


Application programs that run under ITS are closed subroutines. The argu- 
ments that ITSUPV passes to the program are pointers to the appropriate 
terminal list entry and the command scanner arrays. Figure C-6 shows the 
relationship between the control blocks and structures. 


C.1.5.1 CONTROL TRANSITIONS. When control is passed to an applica- 
tion program, the RDTRM, WRTTRM, and PRCESS flags are all set to zero 
and the buffer pointer in the PRB points to the first data word in the terminal 
buffer. If this is the initial entry into the subroutine, STATE is set to 1 and 
the key and packed arrays in the command scanner structure contain the de- 
coded command line. Before the application program returns control to 
ITSUPV, the program sets RDTRM, WRTTRM, PRCESS, STATE, and the 
format control word according to the requirements of the application. 
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Figure C-6. ITS Control Blocks 


C.1.5.2 SAMPLE APPLICATION TRANSFER. The following example 
from the file editor illustrates the strategy for performing a function under 
ITS. The terminal is in the Ready state, and the user wants to edit a file by 
changing the string ABC to XYZ everywhere that it appears. The file con- 
tains 50 records. The following sequence performs that operation: 


1. User keys EDIT FILE=(1, USERO1,MYFILE) and presses RETURN 
from a teleprinter; ITFDIO then sets the PRCESS flag. 


2. ITTPMN detects that processing was requested and calls ITSUPV. 
ITSUPV calls the command scanner, determines that the command 
is to be processed by the file editor (ITIFE) and makes the call. 
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3. ITIFE calls a subroutine to assign and open the file, and read the 
first file record into the terminal buffer. ITIFE then sets the for- 
mat control word to 000E,}4, RDTRMto1, WRTTRM to 1, and 
STATE to 11, and returns control to ITSUPV. ITSUPV returns to 
ITTPMN to activate the I/O task for the user's terminal. 


4, ITFDIO writes the terminal buffer and issues a read to accept more 
input. 


5. Terminal user enters RA 1,50 /ABC/ /XYZ/ to direct the file editor 


to replace all strings ABC with the string XYZ in the next 50 r 
ords of the file. 


[on 


ITTPMN detects that processing was requested and calls ITSUPV. 
ITSUPV determines that STATE is between 10 and 19 and calls 
ITIFE, ITIFE calls the command scanner, determines that the com- 
mand is a string operation, and calls a subroutine that processes all 
string commands. The string processor reads 25 records, changing 
ABC to XYZ wherever found. After processing the 25 records, 

(the subroutine interrupts itself rather than being arbitrarily cutoff) 
the string processor changes STATE to 14, leaves RDTRM and 
WRTTRM reset, sets the PRCESS flag and returns control through 
ITIFE and ITSUPV to ITTPMN. ITTPMN does not post the I/O rou- 
tine because neither RDTRM or WRTITRM are set. However, it 
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7. Intime the terminal scan progresses to the same terminal. ITTPMN 
detects that processing was requested and passes control through to 
the string processor to process the last 25 records. After process- 
ing is complete, the string processor puts the last record processed 
in the terminal buffer, sets RDTRM and WRTTRM to 1, changes 
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STATE back to 1] and returns. ITIFE sets the format control word 


to 000E)¢ and returns through ITSUPV to ITTPMN to activate the 
appropriate I/O task. Control then returns to the user. The user 
can key in either more edit commands for further file processing, a 
Stop command to get back to the ready state, or a Logoff command 
to exit the system. 


C.2 DESIGN PRINCIPLES 


Before adding a new application program to ITS, the user must understand 
the design features in the subsystem that provide the highest overall effi- 
ciency for the subsystem. Observance of these principles when implement- 
ing a new program will enhance its performance within the system. 


C.2.1 DUAL MODE OPERATION 


ITS can run in either the protected or the privileged mode. The first DXOLE 
control card (see Section VIII) controls the mode of operation. If the card 
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specifies SUBSYSTEM, the program links for privileged operation; if the 
card specifies NORMAL, the program links for protected operation. Privi- 
leged mode is slightly faster than protected mode since it performs less er- 
ror checking for privileged SVCs. In addition, a privileged mode program 
can be smaller since it can access the runtime package that is linked into the 
memory resident portion of the operating system. 


Protected mode simplifies debugging a new ITS application program, and 
guarantees that an error in the new program will not destroy the operating 
system. When preparing the new program, link it in the protected mode, 
Then check the program by running a single terminal with the PROT param- 
eter specified in the Execute command (EXEC) to the JCL translatore. When 
the application is completely checked in this manner, it can be linked with the 
rest of ITS with SUBSYSTEM specified on the DXOLE control card. 


C.2.2 APPLICATIONS OVERLAY 


To attain maximum memory efficiency, ITS application programs can be 
overlayed. The majority of ITS is coded as reusable subroutines. This con- 
vention allows the overlays to be the simple, preplanned overlays supported 
by DXOLE, 


C.2.3 PSEUDO TIME SLICING 


To avoid monopolizing the system for a single terminal application, all ap- 
plication programs must return control to ITTPMN periodically. To main- 
tain an average access time of three seconds for any terminal and for a total 
of up to 30 terminals, the average processing time for any one terminal re- 
quest must be limited to 100 milliseconds. Many terminal requests require 
less than the 100 millisecond average; long functions may use up to a maxi- 
mum of 200 milliseconds. The actual interruption of the program, however, 
is left to the program itself. That is, either the program completes its pro- 
cess within the time limit, or the program interrupts its processing at a 
logical breakpoint to return to ITTPMN within the time limit. If the program 
interrupts itself, it returns to ITTPMN with the PRCESS flag set, and with 
both RDTRM and WRTTRM flags clear. Thus, no I/O operations are initiated 
and ITTPMN returns to the program during the next Terminal List scan. 
This process of allowing the program to limit its time instead of being trun- 
cated after an arbitrary period is called pseudo time slicing. 


Two functions in the standard ITS package, the RJE processor and the Display 
Status processor, do not follow the pseudo time slicing guidelines. These 
processors both contain supervisor calls that take longer than 200 millisec- 
onds to perform (Start Job and Stat SVCs, respectively). Control does not 
return to the processor until the SVC is complete. For each of these proces- 
sors a small reentrant module appears in the root segment of the ITS overlay. 
After the Job, Run and Stat commands are syntactically validated, the pro- 
cessor creates a task that points to the reentrant module. The reentrant 
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module issues the SVC, The processor then resets PRCESS, RDTRM and 
WRITRM flags and returns normally to ITTPMN. When the SVC returns, 
the reentrant module sets the PRCESS flag and issues a Delete Task SVC. 
During the next Terminal List scan cycle, ITTPMN detects the PRCESS flag 
and reactivates the processor. 


C.3 MODIFYING ITS 


Calls from ITS to applications programs are driven by a set of tables in the 
module, ITSTBL. To add an application, the ITSTBL source module must 

be modified, assembled, and linked with ITS and with any new applications 
programs. Refer to figure C-7 for a listing of the components in the ITSTBL 
module. Two sets of tables must be modified to add an application: The 
State/Call Translation Tables and the Application Names /Initial Entry Tables. 


C.3.1 STATE/CALL TRANSLATION TABLES 


The State/Call Translation Table, STATET, breaks all of the possible states 
into State Intervals, Once the interval is determined by ITSUPV, it is used 
as an index for an indirect branch through a table of application entry addres- 
ses (SCALLT). Note that on the standard table states 0 through 1 map into a 
call to ITCOM (ITS command decode), states 2 through 19 map to ITIFE (al- 
though only states 10 through 19 are used), states 20 through 29 map to 
ITRJE, and states 30 through 39 map toITSTAT. To add an application that 
uses states 40 through 49, a 'DATA 49' statement must be inserted after the 
‘DATA 39' statement in STATET, and a 'DATA application entry point' must 
be inserted after the 'DATA ITSTAT' statement in SCALLT. This will cause 
ITSUPV to call the given application for states 40 through 49, Note thata 
single application may have more than one state interval and entry address 

if desired, 


C.3.2 APPLICATION NAMES/INITIAL ENTRY TABLES 


This set of tables map application names to initial application entry points, 
The first table, RESLAB, is a list of eight character application keywords. 
The second table, ICALLT, is a list of application entry points that corre- 
spond to the application names. New application names must be inserted 
after the DATA 'JOB', 'DELETE!' statement in RESLAB, and new initial entry 
points must be inserted after the last 'DATA ITIFE' statement in ICALLT., 
The order of the standard eight commands may not be changed, 
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IOT ITSTBL 
POET TTOTOTTTTTITI PTTL i eter eit Pe err 
ABSTRACT # THIS TABLE CONTAINS THE USER VARIABLE PARAMETERS 
FOR THE INTERACTIVE TERMINAL SYSTEM, AND DEFINES 
THE APPLICATION NAMES AND ENTRY ADDRESSES, THIS 
MODULE MUST HE MODIFIED IN ORDER TO ADD ANY 
ADDITIONAL APPLICATTONS ROI'TINES, 


ROWTINES 
CALLED # LOGON,LOGUFF,ILTRJE,TISTATsITIFE,ITCOM 


ae @e eee & © @ 


RRR ERK EATERS EERE REAR AAKERERAERHEERAEREEAEAKEAREAHAREAHENE ARANETA 


KED ITS COMMAND/STATE TABLF 

ORR REE ARARRERTERERAEERARAREAREREERAAREERERHREKNEDAERE 
* NOTE 8 * 
* THIS MODULE MUST HE IMCL''IDED IN THE ROOT SEGMENT « 
REECE RAAT RRERERERERAREHARHEREEERENTAARGERENAKAAS 
DEF _INFO,RESLAB,KEYAsPAKSTR, ICALL, SCALL, S3ATET/POLTIM 
REF LOGON,LOGOFF,ITRJE,ITSTAT,ITIFE,BADST,ITCOM 

EQu 
EQu 
EQU 
EQU 
EQU 
EQU 
Eau 
E@U 
EQuU 
EQU 
PEJ 


ap uvaroatnxm bp 
Gee NOMS OA & & 


x @ 


* APPLICATION NAMES (RESLAB) 


RESLAB EQU §$ 
DATA 'LOGON 
DATA 'RUN 


' #e POSITION SENSITIVE ee 
' 

DATA 'EDIT ', "ENTER 
1 


' 
s'STATUS ' we POSITION SENSITIVE ee 
' ## POSITION SENSITIVE a 


DATA 'JOB »'DELETE ' ## POSITION SENSITIVE «# 
* INSERT NEY APPLICATIONS ABOVE 
RESD EQU S§eRESLAB THIS LABEL MUST FOLLOW LAST 
NRES EQ@uU RESN/4 APPLICATION NAME 
* 
* INITIAL ENTRY ADDRESS TABLE 


ICALLY EQU $ 

DATA LOGON 

DATA LOGOFF 
DATA ITRJE 

DATA ITSTAT 
DATA ITIFE 

DATA ITIFE 

DATA ITRJE 

DATA ITTFE 

PEJ 


NMDA em UIA = 8 


Figure C-7, ITSTBL Listing (Sheet | of 2) 
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* 
STATET 


+ 


(@ae*st & 


wwe oe mw 


INFO 


NPAK 
NKEY 
KEYA 
PAKSTR 


MTRMS 
MLINES 
MBUFS 
— TRMS 
BUFS 
LINS 
POLTIM 


UCBSI7 


STATE/CALL TRANSLATION TABLFS 


cau 

DATA 
DATA 
DATA 
DATA 


DATA 


NATTA 


rrRsA 


DATA 


DATA 
DATA 


DATA 
PEJ 


EQL 
RMOQ 
RMO 
LOX 
RMO 
LDA 


b | 
i STATES 80<01 
19 B2~—19 
29 28-29 
39 38-39 

INSERT NE STATES HERE 
oi AL!. OTHERS 
ITCOM 22=e22 COMMAND DECODE 
ITIFE igel9 IFE 
ITRJE 28829 RJE 
ITSTAT 30239 STATUS 

INSERT NE“ CALLS HERE 
BADST ALL UNDEFTNED STATES 

ROUTINE TO MAKE INTTIAL CALL BY APPL, NAME 

§ 
B,A SAVE BASE 
MyS GET SECONS ARGUMENT 
#2-BR * 
A,B RESTORF BASE 
ICALLT,X GET CALL ADDRESS 
A,P CALL 


RMO 


ROUTINE TO MAKE SUBSEQUENT CALLS ACCORDING TO STATE 


Fou 


- we 


RMO 


" RMO 


LDX 
RMO 
LDA 
RMO 
PEJ 


e 

ByA SAVE BASE . 
M,B GET SECON" ARG, 
#25BR a 

A,B RESTCRE BASE 
SCALLT,X GET CALL ADDRESS 
A,P CALL 


CRSCAN 'CONTROL! ARRAY 


EQU § 

DATA NPAK NUMBER OF CHARS, IN 'PAKSTR! 
DATA NKEY NUMBER OF WORDS IN 'KEYA! 
DATA 8,8 CRSCAN WORKSPACE 

DATA NRES NUMBER OF LABELS IN 'RESLAB! 
DATA STARTING SCAN POSITION 

EQU 66 NO OF CHAR, IN PAKSTR 

EQU 88 NO OF WORMS IN KEY ARRAY 
BSS NKEY 

BSS NPAK/2 

DEF TRMS,BUFS,LINS 

EQu 32 MAX, NO, IF TERMINALS 

EQU @ " MAX, NC, OF POLLING LINES 
Eau @ MAX, NO, OF POLLING BUFFERS 
BSS 6eMTRMS TERMINAL LIST 

BSS 4deMBUFS BUFFER LIST 

BSS J6eMLINES LINE LIST 

DATA Sov POLLING INTERVAL (IN MILLISECONDS) 
DEF UCBS8IZ 

DATA 58 USER CONTROL BLOCK SIZE 

END 

Figure C-7. ITSTBL Listing (Sheet 2 of 2) 
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C.3.3 CALLING CONVENTIONS 


Calls from ITSUPV follow the standard DX980 calling conventions and are 
as follows: 


e Initial Entry (via Applications Names/Initial Entry tables) 


@ LDM=ARGLST 
@ BRL APPLIC 


ARGLST DATA 2 


DATA TRMLST pointer to TRMLST entry 
DATA keyno pointer to Key Number index 


e Subsequent Entry (via State/Call Translation Tables) 


@ LDM=ARGLST 
@ BRL APPLIC 


ARGLST DATA 2 

DATA TRMLST 

DATA STATI pointer to state interval 
C.3.4 CRSCAN ARGUMENTS 
The calling argument, key array, and packed string for the command decode 
done in states 0 and 1 areinITSTBL. 
C.3.5 TRMS 
All TRMLST entries are built in ITSTBL in the buffer 'TRMS', The size of 
this area is controlled by the label, MTRMS., 
C.3.6 POLLING PARAMETERS 


Several parameters may be adjusted to suit the requirements of the user. 
These parameters are: 


e POLTIM - Time interval for polling 
® MLINS - Maximum number of polling lines 


e MBUFS - Maximum number of polling buffers 


C.3.7 USER CONTROL BLOCK SIZE 


The user may alter the size of the USER CONTROL BLOCKS by adjusting the 
value of the statement: | 


UCBSIZ DATA 50 


Note that the minimum UCB size for IFE is 50 words, 
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ADDING NON-STANDARD DEVICES TO DX980 


APPENDIX D 


D.1 GENERAL 


By using DX980 utilities, user supplied routines, and information about the 
1/O package, up to four non-standard devices may be added to a DX980 con- 
figuration. However, non-standard discs cannot be added. To support a 

new device, the user must design, code and install a device service routine in 
the system. In addition, he must implement a utility to build and modify 1/0 
associated tables. This appendix provides the necessary information and 


procedure to accomplish these tasks. 


D.2 WRITING A DEVICE SERVICE ROUTINE 


Writing a new Device Service Routine (DSR) requires a knowledge of the 
DX980 input/output structure, coding requirements for a DSR, plus an under- 
standing of the device characteristics to be allowed for in the routine. The 
following paragraphs provide that background in addition to sample DSR's to 
be used as a guide. 


D.2.1 INPUT/OUTPUT STRUCTURE 


A program initiates Input/Output operations by using an 1/O supervisor call 
(SVC) and passing the required operation via a Physical Record Block (PRB). 
The SVC is actually an illegal instruction that generates an internal interrupt. 
The internal interrupt decoder passes control to the SVC Processor. After 
determining that an 1/O SVC has been made, the SVC Processor gives con- 
trol to the I/O Manager. Figure D-1 illustrates the relationship of the I/O 
Manager within the I/O system. | 


The I/O Manager performs the required housekeeping of the I/O associated 
tables, controls the available devices, sets up and controls DSR entry and 
exit, and performs all other common I/O SVC functions. The following are 
some of the pre - DSR device independent functions performed by the I/O 
Manager: : 

e Control and housekeeping of Open/Close calls 


@ Device assignment checks 

e LUN Open eigels 

e Control of the share/exclusive capabilities 
e Data buffer boundary checks 


e Linking PRB's and Logical Device Tables (LDT's) to the Physical 
Device Tables (PDT's) 
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1/O MGMT CONTROL PATHS 


svc 
PROCESSOR 


END 


TASK 1/0 MANAGER 


EXECUTE 
PREPROCESSOR 


FILE 
PROCESSOR 


ACTIVATE NOT FINISHED 


17O CALL 
PROCESSOR 


CANCEL 


TASK 
DRIVEN 
PROCEDURE 


INTERRUPT 
DRIVEN 
PROCEDURE 
SAVE RESTORE POST END 
STATE STATE ACTION 
1/0 TO TASK 
INTERRUPT SCHEDULER 


(B)130247 


Figure D-1l. General 1/O Flow 
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® Queuing operations when a device is busy 
e Monitoring system operations for initiate 1/0 SVC's 


® Calling the correct DSR 


D.2.2 DEVICE SERVICE ROUTINES (DSR's) 


DSR's provide the actual interface with the hardware. They check for illegal 
operations and for special device dependent and unique conditions not monitor- 
ed by the I/O Manager. The DSR's have three standard entries: an initial 
entry, a reset or cancel entry and an interrupt entry. 


D.2.2.1 INITIAL AND CANCEL ENTRIES, For initial entry, the I/O Man- 
ager issues an SVC to begin an I/O operation. The I/O manager also controls 
the cancel or reset entry by issuing an SVC to the DSR when the system is try- 
ing to terminate an I/O operation in progress. The SVC is as follows: 


CALL SVC (DSR #, PDT @, TYPE) 


In this form, the term PDT @ represents a pointer to the PDT containing the 
I/O information. The term TYPE indicates that the call is either an initial 
or a cancel entry to the DSR. 


Since the I/O Manager calls DSR's with an SVC, the DSR can have only one 
entry point. For this reason and also to perform some common logic rou- 
tines, the DSR executes a system routine (ISDSRI) immediately when entered. 
This call must appear in all DSR's and has the following format: 


REF ISDSRI 

START EQU $ . 
RMO L,A_ Ist word of code 
@BRL ISDSRI 5 
DATA interrupt entry pointer 
DATA cancel entry pointer 


(logic for initial entry) 


The initial entry checks operation validity, starts the I/O operation and, if 
possible, completes the operation. The reset path terminates the I/O opera- 
tion by reseting the interrupt logic and, trying to halt the I/O device. 


D.2.2.2 INTERRUPT ENTRIES. 1/O interrupts can occur during or at the 
end of an I/O operation from either an I/O Bus or a Direct Memory Access 
Channel (DMAC) device. I/O bus interrupts can occur following each char- 
acter transfer while DMAC devices usually interrupt when the operation is 
complete. The operations following an interrupt resemble the response toa 
supervisor call. However, the interrupt decoder coordinates the activity 
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instead of the SVC Processor. The interrupt decoder transfers control to 
the DSR through the interrupt entry. The interrupt entry either completes the 
operation or prepares for further interrupts. 


D.2.2.3 REGISTER INITIALIZATION. Regardless of the type of entry, 
when the DSR is entered from the entrance utility, the following registers are 
initialized: 

e Register E = 0 


® Register S = entry address of the utilities 


® Register M = pointer to the PRB 
e Register B = pointer to the PDT 


In addition, if the entry was an initial entry, registers A and X contain the 


operation code. 


D.2.2.4 EXITS. For any type of entry the DSR may take one of six possible 
exits (see the DSR EXIT utility). These may be classified into three groups. 
The NORM exit is the normal exit from the DSR when no abnormal conditions 
have been detected and the data transfer is not yet complete. The EOR exit 
indicates an End-of-Record exit when the requested data transfer is complete. 
Other types of exits are used to indicate that abnormal conditions were en- 


countered. 


D.2.2.5 I/O ERRORS. Errors that occur during an I/O operation are 
described in Section III of this manual. The 1/O Error numbers listed in 
Section III are in the range of 201 - 209. However, the 1/O Manager adds 
200 to the error number returned by the DSR. Therefore, the DSR need 
only provide an error number from 1 - 9 to the I/O Manager. An additional 
error number, 10, is reserved for use by the I/O Manager. When anerror 
occurs that requires return to system control, the DSR performs one of the 
standard exit utilities. 


D.2.2.6 SYSTEM ERRORS. Most I/O errors may require abortion of the 
user job requesting the I/O. Some types of 1/O errors, however, are so 
severe that they endanger the integrity of the system. For these errors the 
DSR should halt the system so that the cause of the problem can be determined 
before the clues are destroyed. An available DSR routine, SCRASH, provides 
a standard method of bringing the system to a halt gracefully. This routine 
causes the CPU to IDLE. Information from the routine that called SCRASH 
may then be displayed. A sample calling sequence is shown below: 


REF SCRASH 


@LDM =ERINFO Load M Register with Address of Error Information 
@BRL SCRASH Call SCRASH 


(Continued on next text page) 
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ERINFO DATA 1, BADERR Number of Arguments, Address of Arguments 
BADERR DATA ERCODE Code that may be displayed in the A Register 
at IDLE. 


If arguments other than an error code would provide helpful information, the 
number of arguments may be increased. At IDLE the M Register provides 


a pointer to this information. See the DX980 System Operation Guide for the 
standard set of SCRASH codes. 


svete tse fF NY eR y 


Operation Ignored bit in the system set flags (PRB word 0, t 3) when 
operation is not implemented. The I/O manager sets all other system set 
flags. The DSR may pass device dependent information to the caller through 
the non-dedicated bits of the PRB. When passing information that requires 
several words, the DSR must use a buffer that is pointed to by the third word 
of the PRB. The operation code for this type of call is either 0,1, 2,3,19, or 
20. The DSR does not need to set or reset any indicators for the I/O Manager. 
The type of exit taken indicates a course of action for the I/O Manager. 


D.2.2.7 INFORMATION RETURNED BY THE DSR. The DSR only s 
bi 


D.2.3 I/O UTILITY ROUTINES 


The I/O utility routines perform common DSR functions with minimal coding 
in the DSR itself. By using the utilities, the DSR need never know the mem- 
ory locations of any PDT, PRB or LDT; furthermore it does not need to mon- 
itor character input and output buffer indexes. The DSRs use the exit utilities 
to ensure proper handling of interrupts and other types of exits. Failure to 
use the optional utilities creates increased DSR size, development time, and 
maintenance requirements. The I/O Utility Routines perform services fre- 
quently required by Device Service Routines (DSRs). The functions available 
are: 


PRB/PDT/LDT Bit Manipulation 

PRB/PDT/LDT Word Transfer (via register) 
PRB/PDT/LDT Conditional Skip on Bit 

READ/WRITE on 1/0 Bus (via register) 

PUT/GET Character from Packed Buffer (via register) 
LINKAGE to DSR Exit Routine 


The routines generate no task or system errors. All I/O interrupts must be 
masked and the B Register must point to the PDT when using the routines. 


D.2.3.1 ULILITY ROUTINE INTERFACE: The utility routines are serially 
re-usable. The DSR need not Know the location of the utility routines in mem- 
ory. When the DSR is entered by the I/O call processor or Interrupt Decoder, 
the S-register contains the I/O utility entry point. The routines are entered 
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by execution of an REX S, Pinstruction. To enhance DSR readability, the 
REX S, P instruction is defined as a new instruction, IOCOM, using the OPD 
assembler directive: 


IOCOM OPD  C7C7,5 

A two word calling sequence is required to use a utility function: 
IOCOM 
OPERATION -OPRI,OPRZ)< «145; O0PR(N) 


The I/O Utility ENTRY/EXIT Routine transfers control to the correct opcode 
processor. This processor decodes the operand(s) and performs the function. 
On return to the DSR, execution resumes at the instruction following the oper- 
ation designator (unless a skip was executed. For skip instructions execution 
is resumed two instructions after the operation designator). No active regis- 
ters used by the DSR are changed by the common utility routines unless called 
for in the operation; however, the status register compare indicators are 
volatile. 


All general-purpose DSR's use the utility functions as much as possible, 
sometimes a special-purpose DSR cannot afford the added overhead of using 
the Common Utility Functions. To allow for in-line coding where necessary, 
the DSR is always entered with the PDT location in the B-register and the 
PRB location in the M-register. Additionally, the E-register is always 
zeroed when a DSR is entered. 


D.2.3.2 SET/CLEAR PRB, PDT, OR LDT BIT. This routine allows the 
DSR to manipulate bits within the PRB, PDT or LDT. The machine instruc- 
tion appears in the following format: 


0 Awe, e.g 1112 15 
OP CODE Loc’ | worD NUMBER | BIT NUMBER 
Neen some! 


10=SKIP ON ZERO OO=PRB 
11=SKIP ON ONE O1=PDT 
10=LDT 


The assembler directives that define the instruction are as follows: 


BIT FRM _s5, 2, 5,4 
SET EQU 1 

CLR EQU 
PRB EQU 
PDT EQU 
Lov EQU 


Ne OO 
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Therefore, the general form of the instruction becomes: 


SET a 
BIT | : LDT , <word number>, <bit number> 
CLR PpT 


For example, the expression: 


IOCOM 
BIT SET, PRB, 1,5 


changes bit 5 of PRB Word 1 toa value of 1. Aliso, the expression: — 


IOCOM 
BIT CLR UDI. 0,15 


changes bit 15 of LDT Word 0 to a value of 0. 


The utility's execution time is between 26.00 to 29.50 microseconds. 


D.2.3.3 CONDITIONAL INSTRUCTION SKIP FROM PRB, PDT OR LDT BIT. 
This routine allows the DSR to inspect a specific bit of either the PRB, the 
PDT or the LDT and either skip or not skip depending upon the state of that 
bit. The machine instruction word appears as follows: 


9 4 5 6 7 tt 2 is 
a a a CR a aD a | 
LOCA— 
OP CODE TION WORD NUMBER BIT NUMBER 
» mmnesinmmenmmnns ammmmemerenemmagmemmen chee reel 
1=SET BIT OCO=PRB 
O=CLR BIT 01=PDT 
10=LDT 


The assembler directives that define the instruction are as follows: 


BIT FRM ‘55,2, 5,4 
SKIPO EQU 2 
SKIP] EQU 3 
PRB EQU 0 
PDT EQU 1 
ipr EQU 2 


Therefore, the general form of the instruction is: 


BIT ed 


PRB 
PDT} © ; 
eee ’ , <word number>, < bit number> 


LDT 
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For example, the expression: 


IOCOM 
BIT SKIPO, PRB, 3, 15 


indicates that if bit 15 of PRB word 3 is a zero, then the next instruction 
should be skipped. Similarly, the expression: 


IOCOM 

BIT SKIP1, LDT, 0,0 
indicates that if bit 0 of LDT word 0 is al, then the next instruction should 
be skipped. 


The execution time for this utility is between 27.50 to 29.75 microseconds. 


D.2.3.4 LOAD/STORE PRB, PDT OR LDT WORD TO/FROM REGISTER. 
The routine allows the PRB to transfer a word between a designated register 
and a specified word in either the PRB, PDT or LDT. The machine instruc- 
tion appears in the following format: 


1@) 4 5 6 7 8 9 10 11 15 
REG OCA- EG 
OP CODE NO, TION gun WORD NUMBER 
{eee ny \eeeree ooo” 
100=LOAD OO=PRB 
101=STORE 01=PDT 
1O=LDT 


The assembler directives that define the instruction are as follows: 


REG FRM 5, 3,2,6 
LOAD EQU 4 

STORE EQU 
PRB EQU 
PDT EQU 
ET EQU 


NF OM 


The general form of the instruction is: 


PRB 
LOAD 
REG | . , <register number>, PDI <word number>. 
STORE LDT : 


For example, the expression: 


IOCOM 
REG STORE,A,PDT,6 
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transfers the contents of the A Register to word 6 of the PDT. Similarly, 
the expression: 


IOCOM 
REG LOAD, M, LDT,0 
transfers the contents of word 0 of the LDT to the M Register. 


The execution time for this utility is 20.25 to 23.25 microseconds. 


D.2.3.5 READ/WRITE I/O BUS TO/FROM REGISTER. This routine al- 
lows the DSR to transfer the contents of a register to the I/O Bus, or to fill 
a particular register from the 1/O Bus. The machine instruction appears in 
the following format: 


0 4 5 10 1 12 13 1 


5 
a 
FiyJREGISTER 
OP CODE NOT USED NUMBER | 
a) 
TA 


1 
a — 4 
O=READ O=DA 
1=WRITE 1=COMMAND 


The assembler directives that define the instruction are as follows: 


IOBUS FRM  5,7,4 
READ EQU 6 
WRITE EQU 7 
DATA EQU 0 
CMMD EQU 1 


The general form of the instruction is: 


READ | DATA 


WRITE aa , <register number> 


IOBUS 


For example, the expression: 


IOCOM 
IOBUS READ, DATA, X 


transfers data from the I/O Bus to the X Register. Similarly, the expression: 


IOCOM 
IOBUS WRITE, CMMD,A 


transfers a command from the A Register to the I/O Bus. 


The execution time for this utility is 29.00 to 40.50 microseconds. 


D-9 Digital Systems Division 


< 943005-9701 


D.2.3.6 EXIT DSR. This routine links the DSR to the proper routine to 
handle the conditions that exist when the DSR is completed. The machine 
instruction for this routine appears in the following format: 


8 15 


7 
Ku 
ERROR NUMBER 
OP CODE rad (SEE APPENDIX C) 


The assembler directives that define the instruction are as follows: 


EXIT FRM 7,9 
NORM EQU 2016 
ABORT EQU ZY 
RETRY EQU Zee 
DTERR EQU 2354 
EOR EQU 245, 


The general form of the instruction is 


EXIT {type} -. Jerror number} [Error number is ignored for 
NORM and EOR exits. 


For example, the expression: 


IOCOM 
EXIT NORM, 0 


indicates a normal exit from the DSR. Also, the expression: 


IOCOM 
EXIT ABORT, 9 


indicates that the operation was aborted due to an attempt to execute an 
illegal I/O operation to the device (error code 9). 


D.2.3.7 PUT/GET. This routine performs character transfer between a 
packed buffer and a specified register. The PUT routine transfers a charac- 
ter from the right half of the register to the packed buffer and increments the 
PRB character count. The routine may also set bit 0 of the register to indi- 
cate that storing that character filled the buffer space. If the buffer space is 
already full, the routine sets bit 1 of the register to indicate that the charac- 
ter was not stored. The GET routine transfers a character from the buffer 
to the right half of the specified register and increments the output count con- 
tained in the first word of the temporary storage area of the PDT. The rou- 
tine may also set bit 0 of the register to indicate that fetching the current 
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character emptied the buffer. If the buffer is already empty, the routine 
sets bit 1 to indicate that no character is available. The machine instruction 
for this routine appears in the following format: | 


0 45 | 12 13 15 
OP CODE . NOT USED er eg 
01010=PUT 
01011=GET 


The assembler directives that define the instruction are as follows: 


CHAR FRM 5,11 
PUT  EQU) Aj 
GET EQU) Big 


The general form of the instruction is: 


PUT 


ee . <register number> 


CHAR 


For example, the expression: 


TACO, 
av 


WN AVL 


CHAR PUT,M 


transfers a character from the M Register to a packed buffer. Similarly, 
the expression: 


IOCOM 
CHAR GET,E 


transfers a character from a packed buffer to the E Register. 


The execution time for the put and get utilities between 58.25 to 67.00 micro- 
seconds and 49.50 to 55.50 microseconds, respectively. 


D.2.4. PHYSICAL DEVICE TABLES 


A Physical Device Table (PDT) contains parameters, such as device ad- 
dresses and special attributes, that are necessary for control and perfor- 
mance of an I/O operation. Figure D-2 illustrates the format for a standard 
PDT and Table D-1 defines each of the fields. Device Service Routines use 
the PDT's for temporary data storage between interrupts. Each device with- 
in a system has a PDT containing information exciusive to that device. How- 
ever, one common DSR may be used to coordinate I/O operations for a group 
of identical devices. 
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WORD 

. 
) 
| 
, 
4 LOCKING LDT POINTER 

. 
6 DEVICE ATTRIBUTES 

DEVICE 

8 

9 
: 
| 1/O LOAD FACTOR | TIMEOUT 
: 
: 
15 , 1/O DONE EVENT LINK 
17 UNSOLICITED INTERRUPT PROCESSING 
. 
ae DSR | 

| TEMPORARY STORAGE AREA. 

‘ (VARIES FOR EACH DEVICE) 

(A)130248 


Figure D-2. Physical Device Table General Structure 
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Table Deal. 


Standard PDT Field Definitions | 


PDT chain word, pointer to the next PDT. Zero in this 


word indicates that this is the last PDT in the system. 


Device Busy ee - initially zero and set by I/O manager. 


5 


8-15 
0-7 

8-15 
0-15 


a | 


Initially zero (shared access) by Job Manager. 


Exclusive access/shared access flag set at OPEN time 


by I/O Manage 
Locked/not Lo 


r. Initially zero (shared access). 


Exclusive access/shared access flag set by assignment. 


cked flag. Initially zero (not locked) and 
set by I/O Manager. 


ONLINE/OFFLINE status set by online processor. 


Not sharable/sharable attribute set at system generation. 


Extended PDT 


indicator . When set, word 10 contains 
| pointer to an Extended PDT for a central controller. 


RESERVED - initially zero. 


| System/user mode indicator - used only for system con- 
sole data terminal by I/O manager and DSR to determine 
whether device is ina system or user mode. Initially 


Zero. 


initial DSR ent 


ry: 


Internal device identification nurnber - Each PDT hasa 


unique number. 
are reserved and should not be used. 


assigned according to table 2-2. 


| Commit priority - initially zero. 


Assign count, 


initially zero. 


Open count, initially zero 


Locking LDT pointer, initially zero. 


Identification numbers 0-20, inclusive, 


All others are 


This byte indicates the operation status upon completion; | 
it is controlled by the I/O manager and 


initially zero, 
| | | DSR exit utilities. | 
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Table D-1l. 


containing the DSR, as follows: 


MIP SVC Index 
181 22 
182 23 
183 24 
184 25 


Device attributes. Returned in the PRB when the device 


is opened. 

System console only 
Dummy device only 
Rewindable 

Device can ie forward spaced 
Device can be back spaced 
Printing Device 

ASR 733 cassette 

Data Terminal or CRT 
Disc 

Input 

Output 

USASCII Device 

Binary Device 

Polled CRT 


00 - Non-disc Device 

01 - Linked Sequential Disc File 
10 - Relative Record Disc File 
11 - Indexed Disc File 


Device Name - This may be any valid USASCII 6 charac- 
ter string which has not previously been used as a device 


name. 


Standard PDT Field Definitions (Continued) 


SVC index - Determines which DSR is to be called. 
value is determined by the memory image phase (MIP) 
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Table D-1. Standard PDT Field Definitions (Continued) 


If the Extended PDT flag is set, then this word contains 
the address of the Extended PDT. If this is a data bus de- 
vice and the 1/O utilities are to be used, this word con- 
tains two possible device addresses. Refer to I/O Util- 


e hd e * ° Ld e e e 
ities description in this section. Otherwise, this word 


is available for DSR use. 
0.7 1/O load factor. 


8-15 | Device Timeout - can be selected by loading value less 
than 255 into the timeout count byte of the PDT. Counting 
begins when an 1/O Call is initially processed. Ifa de- 
vice is timed out before the data transfer is complete, a 
correctable I/O error occurs. Each count corresponds to 
one second to allow a maximum timeout of 4 minutes and 
14 seconds. Some devices will require resetting the last 
record. 


Keyboard type devices do not normally have a timeout. 

The timeout in the PDT's should be set to FFu¢ to specify 

no timeout. | 
| 


DSR interrupt entry - Initially points to a set of code that 
performs a required task when an I/O operation is not 
currently being done to this device. Normally the only 
logic required clears the interrupt and returns control to 
the system. This word is controlled by the entry and exit 
utilities. This code may reside in the Extended PDT or 
temporary storage area. This entry normally handles | 
unexpected hardware interrupts. 
| 


PRB Pointer for the PRB currently being processed by a 
DSR. Initially zero. 


Logical Device Table (LDT) pointer for the LDT currently 
being processed by the DSR. Initially zero. 


1/O done event link controlled by the exit utilities and the 
system task scheduler. Initially zero. 


15 


16 If the operation currently being processed by a DSR is a 
Read Binary, Read USASCII, Write USASCII, Write | 


Binary, Write Direct, or Read Direct, then this word 


| contains the data buffer address associated with the oper- 
| | | ation. This word is initially zero. | 


{ARITA trcnietcneas——annP—ftSOnP nape RR STE ASS eh Pe serene hs eens nnn Pr tA. 
Re er erp 
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Table D-1l1. Standard PDT Field Definitions (Continued) 


Same as word 12. 


Used by the utilities to maintain an output character count. 
Should be set to zero by the DSR at the start of character 
retrievals from the data buffer. Otherwise, this word is 
available for DSR use. 


This area contains any temporary data or device dependent 
information required by the DSR. 


Controllers that handle more than one identical device (moving head disc con- 
troller or magnetic tape controller for example) are not completely separate 
physical devices. Therefore, each multiple unit controller has an Extended 
PDT in addition to the regular PDT's for the separate devices connected to 
the controller. Figure D-3 illustrates the format for an extended PDT. 

Table D-2 defines each of the fields. The Extended PDT helps the I/O Manag- 
er determine the busy status of the controller and its individual devices, and 
also indicates which of several PDT's associated with the bus address applies 
to a generated interrupt. When anI/O operation is initiated, the I/O Manager 
sets the PDT pointer into Word 1 of the Extended PDT. The PDT address 
table contains a pointer to the Extended PDT instead of the PDT itself. When 
an interrupt occurs from one of the controller's devices, the Interrupt De- 
coders check the PDT Address Table to determine the address of the Extended 


PDT. The decoders then use data in the temporary storage area of the Ex- 
tended PDT to determine which device PDT is associated with the interrupting 
device. 


VARIABLE DSR TEMPORARY STORAGE 


Figure D-3. Extended PDT General Structure 
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Table D-2. Extended PDT Field Definitions 


Must be PREF ¢ 


Active PDT Pointer - controlled by I/O Manager if the Extended 
PDT bit is set in the device PDT (Word 1, Bit 8). 


External Register - use 


a eG a LAU 


e co nd 
bus device. Available for DSR use if device is o 


5 
ch re 
Dp 
oO 
: 
= 


ce) | Bit 0 - set to indicate controller busy. 
| | 
| Bit 1 - set to indicate a Silent 700 Series Data Terminal Extended 
PDT. Word should be initially set to zero. 
4 Pointer to Data Terminal PDT if Word 3, Bit 1 is set. Other- 
| | wise may be used as temporary storage. 
| =) | Mode control for 733 ASR Cassette if Word 3, Bit 1 is set. 
| | 


Otherwise may be used as temporary storage. Initially zero. 


Bit 8 of Word 1 in the device PDT indicates to the I/O Manager that an Ex- 
tended PDT exists for a central controller. If that bit is set, the I/O Man- 
ager retrieves the Extended PDT Pointer from Word 10 of the device PDT 

to access the Extended PDT. It then examines Bit 0 of Word 3 of the Extended 
PDT to determine if the controller is busy. 


D.2.5 LOGICAL DEVICE TABLE 


The Logical Device Table (LDT) equates logical device numbers to physical 
devices or files. Figure D-4 illustrates the table format. Table D-3 pro- 
vides a detailed breakdown of the fields. Job Management creates and de- 
letes LDT's. When an I/O call is made, the I/O Call Processor searches 
the linked LDT's for a LUN definition. If it finds the LUN, it prepares 


FLAGS 
KEY LENGTH LUN 
PDT/FCB POINTER 


; RECORD LENGTH 


NEXT LDT ADDRESS 
UTILITY POINTER 


Figure D-4. DX980 Logical Device Table Format 
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Table D-3. LDT Field Definitions 


0 0 Device open 


File 
2 Blocked 
3 Reserved 
4 Return on 1/O Error 
DS Busy 
6 Pass LDT 
7 Delete LDT 
8 Return on Retry 
9 Password - Owner 
10 Password Protected 
ie No Password Protection 
12 Temporary 
13 User/Creator Access 
| 14-15 | Not Used 
] 0-7 Key length - for files only 
8-15 LUN 
2 0-15-| Pointer to PDT for devices. Pointer to File Control 
Block for files. 
3 0-15 Record length 
4 0-15 Pointer to next LDT - zero if last LDT; Anchor is in Job 
Control Block. 
5 Pointer to Record Control Block for files. 


for either a DSR or a File Management entry, and relinguishes control to the 
correct DSR or File Management Routine. If it does not find a definition for 
the LUN, anerror condition exists and the I/O call cannot be executed. 
Open and close calls change the LDT Flags and Pointers as necessary. 
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D.2.6 DEVICE TIMING FACTORS 


Many I/O Bus interrupts are time-critical, whereas DMAC interrupts gener- 
ally are not. Two factors affect I/O Bus interrupt performance: 


1, The worst-case time to service the high-priority device, 


2. The percentage of CPU time required to service interrupts. 


D.2.5.1 WORST-CASE I/O BUS INTERRUPT LATENCY TIME, The worst- 


tx TIT R, S device is tha anf tha 


case latency time to service high-priority I/O Bu the sum of the 


following: 


Factor Maximum Time Required 


1. The longest code sequence when inter- 
rupts can be masked. This occurs im- 
mediately after a previous interrupt has 
been decoded and includes set-up for 
DSR entry, DSR execution, DSR exit 
and return to the correct machine state. 400 microseconds 


2. Interrupt execution time that is a hard- 
ware function and does not add to the 
latency time. N/A 


3. Retaining the current state of the ma- 
chine and identifying the interrupt, plus 
setting-up for DSR entry. These fac- 
tors are controlled by the I/O Bus Inter- 
rupt Decoder. 40 microseconds 


4, DSR execution to the internal point of 
1/O is dependent upon the DSR being used. 60 microseconds 


Total worst case latency time to 

honor a high priority I/O Bus 

interrupt =505 microseconds 
Table D-4 lists the character interval times of some standard I/O Bus 
peripheral devices. 


D.2.6.2 INTERRUPT HANDLING CAPACITY. The worst-case percentage 
of CPU time required by a I/O Bus device is calculated by: 


WORST-CASE INTERRUPT SERVICE TIME 


TIME BETWEEN INTERRUPTS ave 


The worst-case percentage of CPU time required by a DMAC device during 
the actual transfer is: 


# WORDS PER SECOND X 0.000075 
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Table D-4. I/O Data Rates and CPU Loading 


Maximum 

Device Character Time System Load 

(Worst Case) 
9600 Baud Modem 1040 uS. 29.0 % 
1200 Baud Modem 8333S. 325. % 
300 Baud Modem 33333 8S. 91% 
110 Baud Modem 100, 000 BS. ~3 % 
300 CPM Card Reader 1760S. IZ ~% 
Moving Head Disc (DMAC) 725% 
Model 979 Tape Transport (DMAC) 1.25% 
DS330 Disc System (DMAC) 36. % 


High Speed Paper Tape Reader 3333S. 9.1 % 


High Speed Paper Tape Punch 13,3535, Zu % 
2310 Line Printer (DMAC) . 02% 


The worst-case I/O Bus interrupt service time is the sum of the worst cases 
or 


1, Interrupt identification and DSR entry time (45 microseconds) 
2. DSR execution time (350 microseconds) 
3, DSR exit until interrupts are re-enabled (40,S. microseconds) 


The total worst case time is 435 microseconds. The system can handle any 
combination of devices concurrently until the available CPU time is exceeded. 
The best performance occurs if the higher transfer rate devices are assigned 
to the high priorities. 


D.2.6.3 SYSTEM OVERLOAD PREVENTION, The maximum system load 
percentage for each device is represented in the individual Physical Device 
Tables. The I/O Manager routines monitor the system I/O load at all times. 
If an I/O call is made that causes the load to exceed 90%, the task is queued 
until more CPU time is available. Higher-speed DSR's are designed with 
system load in mind and frequently show a significant improvement over the 
worst-case percentages, 


D.2.7 CONFIGURATION LIMITATIONS 


The Model 980 Computer has four catagories of interrupts: Internal, Priority 
Option, Direct Memory Access Channel (DMAC), and I/O Bus. Internal inter- 
rupts are not directly related to I/O transfers and are handled as a separate 
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function. The I/O interrupt decoders assign the I/O Bus interrupts a higher 
priority than DMAC interrupts (this is different than the hardware priority 
assignment). Within the I/O Bus and DMAC interrupt levels, there is also 

a definite priority structure. I/O Bus interrupt handling has the greatest im- 
pact on overall system performance. | 


Versions of the I/O Bus interrupt decoder support the following I/O configur- 


ations: 
, Maximum I/O Ports With (Without) 
I/O Configuration Internal Expansion 
Internal Only 13.4) 
1 Expander 22 (13) 
2 Expanders SL. 422) 
3 Expanders — 40 (31) 
4 Expanders 49 (40) 


Figure D-5 illustrates priority the structure for internal expansion only. 
Figure D-6 illustrates the maximum I/O Bus configuration. The PDT pointer 
tables list the location of the PDT or Extended PDT associated with that de- 
vice. If less than the maximum configuration is used, expanders should be 
added in the numerical order indicated. Internal expansion may or may not 
be included. If an 1/O expander is not included, its internal port may be used 
for an I/O device. Figure D-7 shows the DMAC expander table. 


The following equation determines the maximum number of ports per hardware 
configuration: 


(# of expanders x 10) + (13 - # of expanders) 


D.2.8 DX980 CONVENTIONS 


Some general rules apply to all sequential I/O devices as well as sequential 
disc files. Devices capable of both reading and writing cannot arbitrarily 
switch between Read/Write modes. The restrictions vary from device to 
device. Do not close and re-open a device to circumvent these restrictions; 
the results are unpredictable and different for each device. All DSR's should 
ignore I/O opcode 17 and 18 to allow for expansion with new functions. Op- 
codes above 20 are generally in error, although some are legal for random 
access to disc files and other device-dependent functions. For opcodes 0-3 
and 19-20, the I/O Call Processor checks for allowable data buffers. Use 
these opcodes for data transfer functions. Use opcodes above 29 for special 
functions that do not directly involve a data transfer. The basic functions, 
Open and Close are processed by all standard Device Service Routines. All 
sequential writing DSR's provide a command to write an end-of-file. For 
most devices this is a /* record. The end-of-file command should always 
be used in lieu of writing a /* for that purpose. 
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13 #14 15 


*-NOT USED - 


1/O BUS POINTER TABLE 


PDT POINTER (OR 0) 1ST PRIORITY 


PDT POINTER (OR 0 3*2ND PRIORITY 


PDT POINTER (OR 0) 3RD PRIORITY 


PDT POINTER (OR 0) 4TH PRIORITY 


PDT POINTER (OR 0) 5TH PRIORITY 


PDT POINTER (OR oy 6TH PRIORITY 


; POT POINTER (OR 0) 7TH PRIORITY 


PDT POINTER (OR 0) 8TH PRIORITY 


PDT POINTER (OR 0} 9TH PRIORITY 


PDT POINTER (OR oy 1OTH PRIORITY 


PDT POINTER (OR 0) 11TH PRIORITY 


* 
PDT POINTER (OR 0) 12TH PRIORITY 
PDT POINTER (OR oy 13TH PRIORITY 


*O INDICATES NO 
DEVICE WITH DESIGNATED 
PRIORITY. 
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Figure D-5. PDT Branch Table with Internal Expansion Only 
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PORT 1! EXPANSION WORD 


PORT 1 PDT POINTER 
TABLE 


[nor uses | 


PRIORITY 10 


NOT USED 
NOT USED 


10 1 12 


BIT SET IN 
EXPANSION WORD 
POINTS TO 
CORRESPONDING WORD 
IN POINTER 
TABLE” 


PORT 3 EXPANSION WORD 


PORT 3 PDT 
POINTER TABLE 


27 


PRIORITY 30 


NOT USED 
NOT USED 


23 4 


5 67 8 9 


10 11 


BIT SET IN 
EXPANSION WORD 
POINTS TO 
CORRESPONDING WORD 
IN POINTER 
TABLE* 


13,14 


12.13 14 15 


WORD 


1/O BUS INTERNAL EXPANSION WORD 


Q 1 2 3 4 5 6 7 8 9 10 11 


PORT 2 EXPANSION WORD 


PORT 2 PDT 
POINTER TABLE 


NOT USED 


19 
PRIORITY 20 


NOT USED 


NOT USED 


3 4 56 7 8 9 


1o 11 


BIT SET IN 
EXPANSION WORD 
POINTS TO 
CORRESPONDING WORD 
IN POINTER 
TABLE * 


PORT 4 EXPANSION WORD 


PORT 4 PDT 
POINTER TABLE 


PRIC RITY 40 


NOT USED 
NOT USED 


23 4 


5 6 7 8 9 


10 11 


BIT SET IN 
EXPANSION WORD 
POINTS TO 
CORRESPONDING WORD 
IN POINTER 
TABLE * 


12 13 14 15 


12.13 14 15 


sp rere lie i a NSAP PSE PTET eet SSSR 


12 13 14 18 
is) c] 
e 


* NOTE: 


INTERNAL EXPANSION 
POT POINTER TABLE 


1 
ie) ; NOT USED 
NOT USED 
i 


NOT USED 


NOT USED 


PRIORITY 41 


43 


45 


I PRIORITY 49 


NOT USED 


14 NOT USED 
5 NOT USED 
16 NOT USED 


GENERAL FORM FOR PRIORITY 
OF A PARTICULAR PDT tS 
GIVEN BY: 


10(n—-1) + (W-4) 


WHERE 
nN =PORT NUMBER 
W=POINTER TABLE WORD NUMBER 


Figure D-6. Priority Scheme for Max- 
imum I/O Expansion 
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D.2.9 DSR WRITING PROCEDURE | 


The recommended method for writing a DSR uses a defined, consistent struc- 
ture. The approach breaks up the DSR into unique processing steps. Each 
step is controlled by a branch vector, similar to the operation of a hardware 
state controller. The branch vector serves as the next state identifier. This 
technique is not suitable for all DSR's. DSR's that do not have several unique 
processing steps are inappropriate for this convention. 

D.2.9.1 PREPARATION, Before designing a DSR, understand completely 
how the hardware interface works. Research sufficient interface documenta- 
tion (usually available) to develop a familiarity with the interface. When de- 
veloping new hardware, design both the interface and DSR before constructing 
either one. Very often, a simple hardware addition can save a considerable 
amount of software, and vice-versa. In some cases, special features that 
look desirable when only considering the hardware may actually make the 
software more complicated and are best eliminated. 


D.2.9.2 REENTRANT DSR'S. DX980 DSR's can service multiple identical 
devices with one copy of the procedure. A data base consisting of several 
I/O tables described earlier is required for each individual device. The 
DSR's also appear to service multiple devices simultaneously because when 
an I/O interrupt occurs, it is serviced very quickly for the interrupting de- 
vice. Once the interrupt service has begun, however, another interrupt can- 


not be serviced until the service for the current one has been completed. 


All registers and DSR local storage are lost between interrupts for a device. 
All data needed for a subsequent execution of a DSR is saved in a temporary 
storage area of the device's Physical Device Table (PDT). This temporary 
storage area is whatever size is needed by the DSR and begins at the end of 
those entries required by the I/O Manager. Do not save data locally ina 
DSR even when only one device is serviced by it. If a second device is ever 
added, the DSR will not work. Furthermore, PDT storage usually takes the 
same amount of code and memory as local DSR storage. Therefore, whether 
or not the DSR's appear to be reentrant, code them as if they were; with all 
data storage being done in the PDT. 


D.2.9.3 STRUCTURING THE DSR. First determine how many interrupt 
entry points will be necessary. To do this requires breaking the I/O transfer 
operation into its major components. This is not always an obvious decision. 
Hold the number of states to a reasonable level. 


For example, consider the high-speed paper tape punch interface. A write 
operation involves sending the requested data on a character basis to the in- 
terface. The DSR is initially in an idle state that clears interrupts and re- 
turns control back to the system. When an output request is initiated by the 
IO Manager, the DSR sends a character to the interfaces, sets its next state 
to one that continues sending characters upon interrupt, and exits normally. 
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PDT POINTER (OR 0) 8TH PRIORITY 


*o INDICATES NO 
DEVICE WITH THIS 
PRIORITY. 
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Figure D-7. DMAC Expansion Table PDT Pointer 


When the DSR senses that it is about to send the last character, it changes 
state to exit the DSR with an End-of-Record exit. When this state is exe- 
cuted, the state is again set to idle and the DSR is exited. This procedure 
involves changing the state of the DSR several times. Upon an interrupt 
entry, the DSR only needs to clear the interrupt and branch via the next state 
vector. 


Figure D-8 and table D-5 provide a flowchart and listing, respectively, of 
the paper tape punch DSR. Following that, figure D-9 and table D-6 provide 
a more complex example, the data terminal DSR. 


D.2.9.4 CODING PDT BUILDER. When configuring the DX980 system at 
Initial Program Load (IPL) time include all the hardware configuration that 
is going to be used on the total system. This allows adding a device by 
adding only the PDT pointer to PDT branch tables since these tables already 
exist. The PDT Builder utility then has access to these tables using pointers 
and labels defined in table D-7. Figure D-10 outlines the steps required to 
add the new PDT using the PDT Builder utility. The remainder of this para- 
graph describes these events. 
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JLs/LOs 74 


CHART TITLE ~ PAPER TAPE PUNCH DEVICE SERVICE ROUTINE 


Figure D-8. 


/ EVPTP4 $f 


* ey 
* DIRECT PUNCH? 4#-+ 
* * 


4mm p 


INTERRUPT ENTKY OCINT 


s 


INTERR J 03 
Stace cee eee ees * 
READ STATUS - 
KLUG_T9 CLEAR 
INTERRUPT 
a----~----------- +--+ * 


BRANCH VIA VECTOR 


AUTOFLOW CHART SET — 
/ wWIBINY / 
o1.05--->| 
54 
Be a ee we 
! ZERO OUTPUT COUNT j 
IVPTP6 | 05 
e-—--  - 
i GET CHARACTER ! 
oe we ew meme eee ee * 
* 06 
* * 
* * 
{ YES * HAS THE ® 
+----- * SUFFER BEEN * 
*EXHAUSTED? * 
* * 
* = 
x 
NC 
oT 
$oeo ese le oes 
| SAVE CHARACTER IN | 
POT 
Be ae ne a ee * 
Ihe eae 
$osooS ac eee eee 
| GET UPPER HALF OF 
SYTE OR CHARACTER 
#----- ~~ + + * 
— 
Bee + ee ee ee ee 
| SET VECTOR TO | 
Eve TPS 
We 
ence ena >| 
CONT? 10 
USING HALE BYTE 
AS_INDEX PICKUP 
! DATA TO JuTPUT 


ae BINARY wOCRD ¢ 


/ / 
/ CUTPUT 1/4 OF / 


iG FURTHER 
RRUPTS 


me 


i3 

#2 +--+ ---++---- ~~ -e * 
| GET CHARACTER | 

SAVED IN PDT 
#~ ------—--~-~ +--+ * 
| 14 
#-----------~+--~~~-- * 
| SET VECTOR TO | 
IvPTP6 
$-—--------~------- * 
eek: l 
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Table D-5, Paper Tape Punch DSR Listing 


BaP ROLE 

PTP NSR » INITIAL ENTRY SHFET arnt 
AQAi « 943117 
BAAS we 
AAAS «& 
APas wv TEXAS INSTRPUMERTS,ING, PARTHO 4311789981 
O90" 
AAne f 
AAA? TNT IMPTP 
Wl 0. Oe PER RR RE RE REEL EES ESTES EE EERE TES ERE EASA 
AFAD 
OAT « 
Ait o«# TITLE ws HIGH SPEFD PAPER TAPF PUNCH NEVICE SFRVICE R 
AQIS « 1YSPTP!t 
AA1IS 
A144 «* AUTHOR ws FRXESY BNONIUGLI, 817/74 
AAL= 
Q2A1e « SYSTEM = NxQBa 
AALT ¢ 
AALB w ARSTRACT THIS ROUTINE PROVINES THE INTERFACE 
aeic BETWEEN THE PAPER TAPE PUNCH FANTROLILER 
UPer « AND THE Ox9OBA SYSTEM, 
AF21 # MAJOR FLINCTYONS§ (9 THE HIGhH SPEED PAPFR TAPE PUNCH 
BA2Z2 « ASR PUNCHES DATA ON 8 LEVEL PAPER 
arest TAPES TN A® ASCIT, BINARY, OR ATRECT 
ACQL -& MONE, 
“?ee «& 2?) ACSTT PECORDS ARE WRITTEN AS ONE 
"928 «© FRAME PER FRARACTER, THE BATA 
avay « PUNCHEN NIRECTIY FROM THE MATA BlIFe 
ae2ke FER WITH NT CORVERSIONS, 
aes « 3) Fath RECARN 18 TERMINATED WITH A 
g@ase REANER OFF CHARACTER (XeNFF) AND 4 
Wasi « NELETE (CRPURDIIT) CHARACTERS, 
wage 4) RINARY RECARNS ARE PUNCHED aS FOUR 
ae3% FRAMES PFR WORK, 
“YA3SL o §) ON WRITE OFRECT NN END OF RECORN 
GA35 TNNYCATOP YS PUNCHED, 
U@3% « ERRORS NO PUNCH ERRMRS ARF RETECTARLE 
“uray oe NAPFRATYINN COME ERRORS we ABNRT 
Cy, a) 
YASS ww INPUT a THE FOLLIAWING ARGUMENT 8 PASSED 
Aaa!” e 
Ana, * (PAT@, INITLTAL/CANCEL fALL YNDICATNR) 
AA&S « 
Anay 4LL ASF AN A CALL TN TSOSRY TO HATAIN THE 
A%4L @ FOLLOWINGS? 
ara®s e Fossa 
AO4e Ms PRA @ 
Ara? & R = POT @ 
AASB A ANT ¥ #8 APFRATION CONE 
Vr S ae HITYILITY FNTRY 
BAS" BRANT H INTA INTTTAL AR CANCEL FNTR 
Ans 4 * 
JABS @ NUTPHT z HONE 
“aesy of 
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Table D-5. Paper Tape Punch DSR Listing (Continued) 


SaP RAL 
PTP JSR w INITIAL ENTRY SHEET agar 


kek 4 
Ars” 
Base 


w ROLTINES 
* 
* 
057 «@# SVCS USEN & NOKE 
® : 
. 
w 
® 


mPALLEO e T/f HiTYLITTES 


2°58 
was9 
ABS 


A641 CRETE TERE EEEREEETERTARTEHTEEHETESRTERET HEHE RES EY 
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Table D-5. 


$aP RALC 


PTP O8R w INITIAL ENTRY 


ere! 
BAB9d 


BAA 
arBe 
AGA 
AiARe 
APA? 
BOA? 
GaAs 


GABA 
Aras 


PAA 
vAA7 
BAav 
Aaa 


GAGA 
AGAR 


“Aer 
vega 


Aaage 
AA6y 
BVABL 
AAGY 


aP6E 


QA67 
AMGR 
Aa69 
Ha70 
amr 
BP72 
aa7Z 
Aare 
Maze 
aaze 
aa77 
AA7R 
BATS 
wanes 
anes 
aman 
AORS 


amas 


Anas 
aoee 
ana? 
AGAR 
aaas 
anger 
aegy 
ange 
uagy 
age 


Paper Tape Punch DSR Listing (Continued) 


SHEET aaas 


RERATEHUETRERHTERHERHETHHEHTEEHEEHERHEOHHEE RHE RHEE HEE 


RMP REREEHEEREREDEHHEHHTOHERERTEHATHE HEHEHE EHERE RATERS 


PEJ 
REF YS8D8RY 
NEF ISPTP 
& 
* T/O UTILITY FOUATES 
# 
INCOM OPN »0707,5 
ABORT FQU >214 
OPDFRR FOU 9 
ArT FRM §,9,5,4 
SET FQU 4 
CLEAR FOI! gf 
PNT Faull 4. 
PRB FQU OA 
LOT FAI 69 
SkIPa Fol 2 
SKIP1 Eau 3 
REG FRM 5,3,2,6 
Laan Fall 4 
STORE Fl! § 
raises FRM &8,7,4 
REAN EQ 6 
WRITE FOU 7 
DATA Fauoa 
CMM FAL 1 
CHAR FRM 5,141 
PUT FOll oA 
GET FOU >A 
EXIT FRY 7,9 
NORM FOll oa 
ENR FQI 294 
D-31 
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Table D-5. Paper Tape Punch DSR Listing (Continued) 


SAP ROLE 
PYP NSQ © IMTTIAL ENTRY SHEET gana 
vag se PES 
AAQe IRR R REAR RRREERE ESSER CER EEE EEE SOLES ESESESCESLESCLSALSCSOECLOSCASCSCE SE 
AGQOF -« 
“AP9R wv REGISTER ENUATES 
AANS «# 
ALA? HORE HEE HEE EAT HERE RTH ETE HERE HRERERENH EH HDR ERHEE EKER ERE REEDED 
A®vC WLAt A Fou 4 
ri | ALAS E FAI: 1 
ArAP wIWAy YX FQl: 2 
AU%AR BIAS M FQI' 3 
VIAL VIAL § FOU 4 
AAMAS AIA f. FQi § 
AMAR AAT R FQU 6 
WPAFy ALTAR P FQli 7 
ure B1vS BPR FQti 
DOOM PEPER SEER ES ESOV ELEC CST ECS ESC CLSLOSTCSSCVCIT TICLE 
Aaqgii * 
¥V11ie « PRR 
Aaqi% = f# 
ALLS ee OR HORE HEHEHE EEE ETE TENET EH EREEHRETHREHETEETEEHENEEE RHEE 
vane «aAY{= PRASFI FAI @A SYSTEM FIAG WORD 
“ile «# 
ACAD AT17 PRBFOF FAI! 2 EOF SYSTEM FLAG 
eras ALIB PRBNPT FOI 3 QPERATION YJGNORED Fi aG 
AI1S «& 
u7as A127 PRBNPC EQu 1 APERATION CORE (RIGHT HLAP) 
aAaP W221 PRANRL EQ 2 NATA RECARA LENGTH 
AL 2S ARR RTE ETRE ETHER TEETH TEETER EEEHERTERTEH EEE EH ATER EERE 
ALT2% of 
AI2Z w PAT 
412" 
Re Sve RARE ESE SES ES ELLOS ETSLES IS ELSLS ICSC CTT CTT TTT TTT TTT Te 
Ara AY27 PNTFLG FQ" 1 FLAG woORfA 
4128 
BrAF Bi2G ATRCTP FOI 1% NYRECT PUNEH BIT 
AIST « 
AFIS At3t OUTCNT Fati 1A OUTPIY COUNT USER AY HTILITIES 


art? aise TEMP FOU 618 
A135 813% TEMP{ EA 19 


AM{4 w13e VECT EQU 2a WRITE VECTOR USE ON YNTERRUPT ENT 
‘DO eM CEPT EELS ESAS TSEC ESAT LSITICTEL STSCI STL TTT LLLP TTTTTTTTTTiT 
0136 « 
@137 @ WRITE COMMANDS FOR PTP INTERFACE 
0138 « 
ALSS OOH H ERE HH REET E HOHNER ETH AHE RETO E THER EATER HEHE E RENEE 
aeae a14¢@ weodrse FOll »areag AHISCONNECT DFVICE 
BIG Bia WCENIN FQL paiga FNABLE INTPRRUPTS 
AL 4D CURR RHA ETHER ENE HEH ORE H ENTE REHEAT HEE HERE H RET ERE REE EEE 
A143 «@ 
A144 ww CONTROL FOR ENFFOR SUARNUTINE 
A145 


DE LM RR ELE SEER EEE EEE LER EE EET rier ce eric isrer it 
A207 A147 WTENF EQU 7 
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Table D-5, Paper Tape Punch DSR Listing (Continued) 


$aP ROLE | 
PTP OSR w IKITIAL ENTRY SHFEY aaas 


9008 0148 WTEOR EQ § | 
aias REN PTP DSR @ INITIAL ENTRY 
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Table D-5. 


SaP ROLLS 
PTP 4SR 6 YATTIAL ENTRY 


AST PES 
AVS] ORME REET HEHEHE RHEE ATE REET ETE EETEE HEMET HEERENHEEES 
A15f « 
Vi5% « A, @ NFTEGMINE TF LEGAL OPCADF, TAKE ERROR PATHE YF NOT 
A152 «* B, @ BRANCH VTA BRANCH TARLE ACCORAING TO OPCADFE 
415" 
ASG eR R EERE ERE EHEHCENHEEHENEHEEHEHHEREH REHEAT EY 
arae aiS7 YSPYTP FOU & 
VaaAA CS50 6158 RMO L,A SAVE SVC RETIIRN @ 
C4741 Fane A489 @BPL ISNSRYT TNITTALIZE SUR PROGRAM 
Baga 
xX @AA2 AGAeP | 
P AAAS ARBR 016¢C NaATA INTERR INTERRUPT FNTRY ADARESS 
P BAA4 AAZAH 8161 MATA CANCEL PANCPL ENTRY APNDRESS 
GAAS {ROP F162 @LNM sWCENTN FNABLE INTERRUPT CONTROL 
BAAR B1BH 
@ag7 CI7C7 ai16y roco™ 
@Aam $813 B16é TORUS WRITE,CMMD,M 
@aa9 C7C7 A168 TOCcOo™ 
BAAA BRIS A164 TORUS READ,C!MN,M 
BAAR B6FiS 4167 CPA #819 
@nar chen «a168 SGE 
BAAN FRIN A169 BRU OPCNER 
GAAP 47904 e176 LOY $§e2,¥xX 
@AvF C527 8171 RM 86X,P 
P BALA AAZR 8172 DATA OPCHER @ READ aStT? 
P A@AL1t @a2B BI73 DATA OPCNDER 1 REAM RINARY 
P BALA BAAE 81724 DATA WTASCY 2 WRITE ASCIT 
P @A13 AGE AI7S DNATA WTBINY 3 WRITE BINARY 
P @F14 A728 A176 PATA OPCNER 4 REwIND 
P @815 @A2R 8177 DATA OPCNER § BACKSPACE RECORD 
P 2018 AP2R 86178 DATA OPCDER 6 FORWARO SPACE RECORD 
P BA17 BA2K B179 DATA EXTEOR 7 OPEN 
P BALA AALP B1BF PATA LDRTRL & OPEN REWIND 
P BALI9 BAage 818% DATA EXTEOR 9 CLOSE 
P BALA a3i1 08182 DATA CLSWEF 1A CLOSE WRITE ENF 
P @A18% 6931 0163 AATA CLEWEF 14 WRITE EOP 
P BA1C 8026 81864 DATA EXTEOR 12 CHANGE RECORD LENGTH 
P BAIN BA24 0188 CATA IGNOR 13 READ NEVICE srTarTus 
P CALF OF28 818€ DATA OPCNER 14 BACK SPACE FILE 
P @A1F BF928 8187 DATA OPCNER 15 FORWARO SPACE FILE 
P 0820 9°24 6188 DATA IGNOR 16 UNLOAD 
P 2921 @724 01869 PATA IGNOR 17 UNASSIGNED 
P BA2Z2 8924 8190 MATA IGNOR 18 UNASSIGNED 
P 8823 8940 8191 DATA DIRECT 19 WRITE DIRECT 
@192 HED PTP DSR 
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Table D-5. Paper Tape Punch DSR Listing (Continued) 


$aP RALC 
PYP Y&R SHEET ganar 
e192 PEJ 
QF24 8194 .IGNOR Fol § 
@424 C7CF a198 TocoM SEY OPFORE IGNNR BIT 
2228 8863 a196 RIT SFT,PRB,PRBSFL,PRROPT 
are 4iS7 CaNCEl FOU § 
BVAZE A198 EXTEOR FO § 
HA2h Arar A199 @LNA sEXTNRM 
P AN27 BA75 
OoA2R Bt14 azar STA VECT,RR 
@A29 C7C7 B21 TOCO™ FX¥TT ON COMPLETION OF REQLEST 
QAZR 489P Boas EXYT FOR,o 
VP2R AeAay OPCNER FOU § 
G@A2R wuPArP weHe @LNA sWCNTse 
WA2C A2ae 
@A2N C7C7 w2eAase TOC OM 
@A2F Baie aeve TORUS WRITE, CMMO A 
wA2F C7C7 weer TacO™M 
¥A5A 490290 APn8 FEXTT ARORT, OPDERR 
@231 aPAc CLSWEF FO § 
WAS 4707 waric LOY sWTFOF 
C432 Brkae writ @LMPE sLDRTRPL 
P @*3R B242 
ag1e HER PTP ASR ww WRITE ENF/ENR 
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Table D-5. Paper Tape Punch DSR Listing (Continued) 


SAP ROLE 
PTP SR © WRITE ENF/EOR «SHEET gape, 
v7iy, PES 
TVR MCE PESCOEOCOCSOS ECP S ES SS EIRP E SEE EERSTE ESS 
a7ie 
ALE * INPUT TS Eenex? FNTRY VECTOR ANDXeD TF FOR OR Xed IF ENF 
AQI7 w A, = SET VECTOR TO TVPTPY 
AO{8 « B, = GET CHARACTER 
vei2 « C, © IS IT LAST ONE TN PUNCH? ES THEN TH TO F 
geen oa D, & OUTPLIT CHAPACTER 
4201 w E, = FXTIT NORMAILY 
920 ww F, = SET VECTOR AS SPFCTFIEN AN ENTRY 
A222 
D224 ROWER ERE AER HE RETRO HH RARER EEO HHEHENEEEHET HEHEHE EEK ee 
we3e 49285 EDFFOR EQ! & 
W954 BS9IS APZE STE TFEMP1,BR 
e735 argr a2e?7 @LDA BYVPTP, 
P AASK WAG 
OAS? B8114 AP28 STA VECT,AR 
G38 91172 82729 STX TEMP,PR 
A93g a23r YVPTPY EG & 
MASD 1112 B231 LDX TEMP,RR 
VASA BASF 232 LDA ENF,X 
¥A3R C7C7 8233 toco™ 
QA3C B3RAR BASEL TORUS MRITE,NATA,A 
wAsN A912 A238 AMT TEMP,RR 
OWASE FASF BOSE BRI! FXTNRM 
BASF 1113 8237 LOX TFMP1,BR 
BASA 9114 8938 STx VECT,AR 
WA4{ FREE BOSE BRU EXTNRM 
@24e HEN PTP DSR = PINCH LEANER/TRAILER ROVNTINE 
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Table D-5. Paper Tape Punch DSR Listing (Continued) 
SAP ROL 
PTP ISR @ PI'NCH LEANEP/TRATLER ROUTINE SHFET aang 
OP 4 PEJ 
Ve Vee ECR ECE SESES SELES CECE S ESE ESSE SESS IUS ECCS SSC ESSE ES 
ae ; 
A244 ww A, = SET INTERRUPT VECTOR TN FNTER at B 
74% «a B, « PONE TT the TIMES? YES YHES 66 TH F 
W246 « C, = PUNCH A ALANK 
a?é7 wv OD, = FXIT NORMALLY 
Q248 © E, = RISCONNELT NFVYCE AND FXTT ENR 
v?4o « 
APS eRe RRO E EEE RENEE THE ET ETHERNET HELEN ERT NREL ERED 
A%4P A251 LARTRL FOU § 
442 BPRe YOKE *..NA ZTVPTPO 
P WA48 BRE? 
WASS BILA ups STA VFCT,RR 
OA45 ATH4 WAKS LOA sf 
“AAG BLL? Bese STA TEMPLAR 
Al47 256. IVPYPS FAI § 
Gia? 491? 4987 OMT TEMP, AR 
“r4qRP 7AAY 4988 RRIi $42 
W849 7RDOC nese RRI' | =6CANCEI 
O74A C7CF wvpee TORO 
W24R BRAY APA, TORUS WRITE, NATA,E 
é44f FROR w?PbS RRIt EXTNRM 
A26S HED PTP NS@ wm WRITE ASCTT 
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Sar ROL 


Table D-5. 


PTP SR w» WRITE aASCTT 


wad 


ViAGF 
P YUAF 
ens 
Basi 


ake ig 
WAss 
Wasa 
Bass 
vaAS&é 
P “WAS7 
CASA 


“asa 
Basa 
vasR 


Base. 
Wagn 
BadsE 


ase 
Be6a 
P A264 
wA62 


vaar 
5199 
VA AF 
arae 
“rg? 
8144 
8QO4°? 
“Pso 
C7C? 
SRUC 
DRYA 
7RAS 
aRao 
“wage 
Ag1A 
ees§a 
C7C?7 
Sane 
FAaqS 
aese 
Ata! 
DRGF 
748C7 
BOSE 
1708 
araa 
QA2Q6 
7ADS 


DHS 
ADKE 
AO6F 
A?67 
A2#bS 
A26% 
aor? 
Ao71 
yo7e 
A97% 
W274 
AQ27E 
A27e 
a277 
4278 


a27¢ 
A28C 
A2a4 
“rae 
W28e 
W284 
H285 
ARF 


A287 
42788 
upas 
a29% 
v2ot 
aoge 
woos 
8294 
“298 
aege 
A297 
u2os 


8299 
ASAT 


Paper Tape Punch DSR Listing (Continued) 


Q@HEET anya 


PE! 


SCPC KSHEREHERERE HET E HEHEHE HEHREHREHETEREHRETATEH EDEN ETE WE 


*¢*+ @ © ¢ @ @ 
AMOO ZT YP 
@eas8 8 


* 


SET VECTOR 

7JERO PFT OUTPUT COUNT 

BET CHARACTER 

TS ITT LAST CHAPACTFR TN WRITE 2 NN THEN GO TN F 
SET VECTOR TO YVPTP4 

EXTT NORMAILY 


REHEAT HUTEEEREEHTERHETEHEEHEPTEHEHTORHEEH EERE DETERS 


NTRECT 


WrASCY 


YVPTP3 


CONT 


IVPTP4 


SETFOR 


Fou § FNTRY FOR NAITRECT PUNCH 
IMM PPRTFLG,RR SET NIRECT BIT FLAG 
FQ 6 § 

CLPA BSYVPTPS 

STA VECT,RR 

STF OHTCNT,RR 

FOU 8 6§ 

roco™ 

CHAR GET,A 

TAPN A 

PRI! CONT 


@LPE afVPTP4 


STF VECT,AR 

Fou $s 

TOrOM 

TORUS WRITE,NATA,A 
PRI's EXTNRM 

Fol $s 

LO’ PNTFLG,AR 
TABZ NIRCTP 

BRU EXTEAR RRANCH IF NOING DIRECT PIINCH 
Fol 6$ 

LOw ewTEor 

LOE sFXTENR 


RRU EOFEOR 
HEN PTP N§R «w@ INTERRUPT FNTRY 
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Table D-5. Paper Tape Punch DSR Listing (Continued) 


SaP ROLE 
PTP DSR » INTERRUPT ENTRY SHEET Amit 
AsaAt PEJ 
ASAD RET HHREREEEATEETRER EAH HERSEK ATHEREHKEHETEHEHROERHNRHEENEREERE 
“say * 
ASML « A, © CLEAR INTERRUPT 
@3A5 « &, = ARANEH VIA VECTOR 
asAae ff 
@RA7 REMAKES ARAHEEREHREHRERTESESSEKSEETAEHTHTHEKEHROREEHTAHEEEECED 
AAHS A3IAB IYNTERR FOL § 
“A63 C7C7F7 30S toca 
WAGA BAqe waste TORUS PEAD,CMMN, A 
W765 F714 ASL PRI! wVECT,BR 
agS{e HER PTP N§R «@ WRITE RINARY 
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SaP ROLLS 


Table D-5. 


PTP NSH wm KEITE RINARY 


YAK 


WA? 
Virsa 
VAAQ 
BABA 
VAG EE 
veer 
WvAbn 
P YAIBE 


vO6F 
anys 
“ery 
v7? 
wuz s 
“vaya 


We7s 
YATK 


OAT? 
wr7a 
P WA?Z?Q 
VATA 


oe A) 
wa7ye 
WA7nH 
BAz7EF 
BATFE 
OAaa 
W781 
rL-Y, 
078% 
OAH4 
Gags 


ie oka 
RO (9D 
ACK? 
C7C7 
ysaaC 
DRA Y 
7RES 
R143 
Caaa4 
wR at 
usr? 
AP GF 
HO44 
SF UP 
c%ae 
AP AF 
C7C7 
gaye 
ve7s 
Aa7® 
C7C7 
ange 
AA77 
a1is 
WRAP 
arb? 
7RF 4 
VO7TA 
AFF 
vor Fr 
AaFF 
AaPRF 
AVES 
AP BA 
WAAF 
AaALTH 
arat 
“vaAAe 
ABS 


as, 
“A128 
ASL" 
OS 
AS{? 
aa1a 
ee 
“yor 
Yw4s21 
“wram 
“ser 
uses 
AOS 
AADF 
vaor 
AxQ8 
“wA26 
“2S 
vast 
ABae 
vAayay 
WidSS 
GS3a5 
vsSE 


AXS7 
AAAS 
“33% 
W347 
ASS 4 
usar 
usar 
W842 
v3465 
J34E 
A347 
“W348 
AAAS 
BAS 


0351 
e382 
AS5y 
vUs5S 
W355 
ASSE 
357 
A358 
¥35¢ 
A367 
AS61 
“362 
usé6s 


Paper Tape Punch DSR Listing (Continued) 


SHFET an{? 


PES 


LAR RA RRO RRR RRR ERE RRR EERE ER ERE RE RRR RRR RR REESE ES SE 


¢$naeete_etetees# #£ 

msm TH RNM OOD Se 
es e® # @ @ @ 
#8 8 8 8 


+ 


REY CHARACTER FROM RBIIFFER 
kKAS RUPFFR BEEN FXHALUISTFR? YES GA TN TvPpTpa 
SAVE CHARACTER IN PHT 

SEY VECTOR TO TVFTPS (STATEMENT GY 

SUTPI'T NAJFCT CHAR 

YXTT NOR“ALLY 

RET NFYT NE JECT CHAR FORM PNT 

SET VECTOR TN TVPTPR (STATEMENT A) 

£0 TO F 


PERERA TE EET AHH HEE EEEREE HAE TEE ENER HERE HEED 


WYBTNY 


IVPTPA 


CONT? 


TVPTP 
EXTN RM 


YVPTPS 


ENF 


NULL 


XnFF 


TAB 


FQ §& 

STF OMUITANT, RR 
FOU § 

TOrN™ 

CHAR GFT,A 
TARZ 4 

PRI 6 SFTFEOF 
STA TFEMP41,RR 
CRA 4 

@L NF sTVPTPS 


ee b 

STF VECT,BF 
AND E>F 
RMT A,X 
1s TAR,YX 
Tors 

TORUS bMRITE,OATA,A 
FQ § 

FQUH § 
Tare 

FXTT NORM, @ 
FOI 8 


LOA TEMPY,AR 
@LHE sTVPTPE 


ARI! CONT7Z 

Fal) Sul 

DATA p»FF 

MATA D-FF 

NATA »FF 

NATA >FF NELETE 
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Table D-6. Data Terminal DSR Listing (Continued) 


SaP ROELC 
Nava TERMINAL OSR w GENERAL FQUATES SHEET aans 
OAK? PEJ 
ACR eH Rae R EEE RARER E RHEE EREEEEN HEHEHE E THEE 
Be6o 
AaAyG PRR WORD ESUATES 
WAFL « 
POPS ee WO RARE EEE H ETEK EHH OH EEE AE HEE RERE RHEE HET EHH HHH HHEHE HEHE ED 
aazyz * 
vaan @u7e PRASFL FOU A PRR SYSTEM SFT FLAGS 
veai ae7& PRBIFL FQ ft SFR SFY FLAGS 
gagi aa7e PRANPC EQU 1 T/N QPCOKE (RIGHT HALF) 
BAA9 BA77 PRBARL FQ 2 NaTA RECORA LENGTH 
A%9R AATR. PRBABA FOU 38 NATA RFEFCCROA LENGTH 
AGATE * 
PART Se R eH Re E Oe RE METER EERE TEE HOE TEE ETE HEHEHE HHH EE HEHEHE HENEH HEE 
vABi « 
AaaswBe * PRP FLAG RIT EQUATES 
vaay + oe 
AAR SL eee R EERE EE HEH ETE EHR ETEK EH AHERN HERTETEREERE RET 
GARE «& 
anand aese PRBEOF FOI 2 FENN OF FILE 
gaadS wre7 PRBANPT FOU 3 NPFRATTON FTEONOREN 
V9A1 YABR PRBAWR EQU jf NUTRIT WTTW REPLY 
@7a? vvyaS PRBATM EG! 2 AUTO RECORD TERMINATE 
y7a3 ange PRBAFAC FO 8 FORMATTED ASC IT ANUTPUT 
v¢ea4 arzgt PRBSCR FQ 4 SURPRESS ALTA CReLF AN INPIT 
gaps aage PRBSBL EQU 3 SURPRESS BFLI AN INPUT 


wag * 
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Table D-6. Data Terminal DSR Listing (Continued) 


SAP ROLC 
Nata TERMTNAL NSR w GENFRAL ENUATES SHEET ARAMA 
APQL FE J 
“Ag®s™ HREM ERATE EERE EK E HERRERA ERE EARERWEHRHEEDRED HT HREKREE 
AAGE * 
vY~Q7 -«* PHT WORD EUATFS 
VOOR -« 
VAgs SWRA RERE HERE HEREEERERHHEHTERHEHHRERE HHH HHKEREETEKHHERENS 
ATAU 
AAA ee | POTFLG Fnti 1 FLAGS 
vPel Atus PATPRR FO 13 PRR ADDRESS 
AAT WINX PATABA FOU 16 MATA BIIFFER ADR 
w792 aIae PARTACT Fnii {RAR NUTPHT COUNT 
AN{4 ALAS PATYXN EI ae PA MAX CHARACTER OUTPUT/PECORD 
vegS Aa¢ae PNTSTA FOI' 21 INITIAL STATIS 
A?1A wWUlAay PNTRVE EN 29 REAN VFCTOR 
¥VP17 AIAR PNTXYVE FOI 2s WRITE VECTOR 
“wr_TR A1ac TEMP FAN 24 TEMPORARY STORAGE 
vAto Alt? TEMP2 FN Of TEMPORARY STPRAGF 
ATtYA Blgt TEMPS FHI! 26 TEMPORARY STNRAGFE 
VAYR ATS PNOTAEV Fil a7 MHMEVINE DFSCRIPTION 
B11. «@ 
Bisa RAPE TE RETR TEEEHRE EERE RENE HE TER TERETE RA HEHE ET HAE RECTET ERENT 
AI1" 
vlieé «® POT FLAG BIT ENUATFS 
Atw17 e 
Aat18 REVERT RETREAT ETRETAHRETSEHKHEARERWTETETE REET EWTRAHEEKEREREREAEE 
vlic + 
veer ayer PNTRSY FO a MEVICE BUSY 
APH? wi2i PNTLFE Full 2 LF BEFORE ECHO AFTER BS AIT 
Bead wI12e PATLFEFT FO 38 TGNORE NEXT LINE FFEN AIT 
0904 AI2% PNTFFK FOI 4 HOME ON FORM FEEN AIT 
A795 124 PNTINL FOU § ONE NULL AFTER CR AIT 
“PRK WIi2S PNTRCK EQ 6 RACK SPACABLF PRINT HEAD RAITT 
ASA7 A126 PATLFA FGI! 7 AUTO LF ON fFARRIAGE SIZE RIT 
APAE A127 PNHTLFR FOl 14 LINE FREER REFORE ECHN AIT 
VAAF “UIZB PNTAWR FOU 15 NUTPIIT WITH REPLY IN PROGRESS 
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Table D-6. Data Terminal DSR Listing (Continued) 


SaP ROLE 
NaTa TERMINAL DSR « GFENFRAL ENUATES SHFET aaas 

¥12e PES 
AL3? WEEE EERE T ERE HERE U ERE HEHEHE HEE ETEHEHERERERE NERDS 
“131 »« 
aigf « RERISTFER ESUATES 
Qis*y 
a ibnY See SECS ECE SES EL EPEC OCS CCELSSTOSCSCL CSCC CCCI TLL TET TT 
413% «# 

APA AL3F A FOU = & 

avai a4y37 €CE Fau 4 

APAD ALlSR X FOU 2 

UAO% A136 M FqQli 3 

PAAR “Lam OL FOU 8 

APPAR H14al R FG 6 

VGU7 AL4E P FQtt 7 

PAA 414% 8 FQi! 1 
“144i 
Oe We CoP PSEC EPSPS EEL AL eT CCPC ECCS CATS TTTeTTTTrrererTTse 
A14C 
AVA? « CHARACTER FOUATES 
“148 ¢ 
V1 6 eRe RE REE ETE REET EHH ERT EEHETEREEEEOHOREHERE RENE EEY 
ays? * 

Am A1S{ CLR FQ! >F 

ALA ASS CURIP FOU tA CUPSOR UP 


oPAm ~AIS% NULL FQI' >a 
AAMAP ISL HOME FQt' 29 
A°A7 WIS BFLL FOL > >Aa7 
UPAR WISE RAKSP FOL pag 


AGHA WIS7 LF Foll 2A 

“PAC wish FF FOU oe 

arPgr AadTSS& FR EQUI >An 

vrin7 wl6r OLE FO 2-14 

AP{A A161 Offa FOU >44 

@P17 wiI62 CLRLIN FO! 247 CLFAR LINE 


WASA AI6S RACAN FEU D-dA 
@ASC W164 BKSLSH FAI! SC 
WASF B16E BCKARR EG! DSF 
HA7F WUSHE RIIBOT FEQU >7F 
¥O6O A167 TAB FQ »RQ 
AFAA A168 ENDFIL FAI! DpAFAR 
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Table D-6. Data Terminal DSR Listing (Continued) 


SaP RALC 
NATA TEEMTNAL DSR «@ GENFRAL ENUATES SHFET FAs 

VLE PES 
WAM COPPER RP ERER ER ERS ES ESIC CEASE CECE CESSES ESSE ES EEE 
N74 * 
vi7ze2 QUTPIT FORMAT PONTROL FLAG BTT EQUATES 
47% « 
A774 TER REPRE REAR ERERSESESCECACE CESS SECS ESE ESERIES 
A117" 

Amsar wl7& PNSFR™ FOI! 1? FORMAT AFTFR RECORNA 

VAAaD WIF77 CREARM ENt is CAPRTAGE RFETIRN 

AGAR A788 LEFORM FOI 44 LINE FREER 

ACAF AIFS FFFOR™ Fil 18 FOOM FREER 

APAF AIRE LF2FRM Fit! 15 ANA LINE FEER 
A164 * 
AIRE PRE RACES ESERESERSESESCE SSO CECE SSCL CES EREEEES ESE SEER ES 
AR w 
ARS NTHER FOLUATES 
“via w 
AieEe SECS TEESE HATER EREATEHETERERETEREEET ERED OH ENE HERE ETE 
ALRF « 

¥7A8 wvIBS LATNPC EQ! 3g 

AFRAQ ARE ILLOPR Fol Q TLLEGAL CPFRATITON 
Aig? w 
2194 HER MATA TESMTNAL NSR e© I/O CAaLt, ENTRY 
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SaP ROLC 
Nata TERMINAL 


GU sx 


ZDvuvsIsEvuvsvvwuvovoeowvesveud 
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1 


Baan 
vont 


aA? 
VaAs 
WAAA 
eaay 
AAAS 


“UvA7 
ePar 
Yaya 
@AWA 
AAA 
yaat 
BRAN 
WAAF 
AUF 
GALA 
GAL 
“Al? 
PAL3 
4ata 
AALS 
waqa 
e417 
veya 
Amado 
BALA 
gag 
aie 
vain 
@ALF 
QALF 
“aga 
BP2t 
W222 
YAQK 
WnQ4 
aagk 


RABE 


C85 


74GB 
UAAe 
arar 
ves 
Waar 
797? 
7074 
VPA 
C7C7 
2AAat 
3FFF 
C8ae 
AFI? 
cCnNer 
7A LR 
ay 1s 
C7C?7 
gRyve 
RAY 
C5a7 
“vBGS 
AUDE 
Adda 
unAQK 
APQK 
vaAgeé 
uPgEe 
GAS 
AAS 4 
AAR 
W%2R 
Ane 
Vege 
“i163 
VrgQe 
PCE 
“veer 
wage 
yro8 


Table D-6. 


hSR = T/O CALL 


d192 
A1oy 
vige 
019% 


A194 
A197 
vigs 
ago 
wear 
APAL 
VOAS 


APAS 


Bead 
APA 
aone 
“eu? 
agua 
agae 
aeie 
APL 
w?1e 
021% 
APL 
A21® 
Are 
vei? 
0218 
APs 
a22¢e 
v2?! 
A?2F 
A?2y 
YW224 
A928 
Ugee 
0227 
Q228 
u2es 
wose 
v231 


TSNT 


IOENT 


Data Terminal DSR Listing (Continued) 


FNT 


PES 
Fu 
RMN 
@BRL 


MATA 
DATA 
ARL 
PRI. 
FQU: 
Tora” 
REC 
ANN 
RMA 
CPA 
SGF 
PRI 
LOA 
TOCOM 


RY 


§ 
L.A 
TSNSRY 


ISINT 
ISRST 
SETRIG 
SFTH#IC 
$ 


SHFET Aaa7 


Save SY RETIIRG @ 
TNITTALIZF SIR PROGRAM 


INTEPRIIPT ENTRY 
RESET ENTRY 
INTTTALIT7E REAM VECTOR TO TENOR 
INTTTALIZE WRITE VECTOR TO IGNORE 
STARTING PAYNT FOR I/O CALLS 
RET T/N PPCNHE 


LOAD, A,PRA,PRANPC 


arPFF 
A,% 
#18 


OPC IVER 


PNTSTA,AR 


1FGat NAPrOHe ? 
NO, FATAL FRROR 
GET TNYTTAL STATUS 


TNITTALIZE INTERFACE 


TORUS WRITF,NATA,A 


LOA 

RMA 

DATA 
PATA 
DATA 
MATA 
DNATA 
DATA 
DATA 
DATA 
DNATA 
MATA 
AATA 
DatTa 
DATA 
DATA 
DATA 
PATA 
NATA 
[YAT A 
DATA 


$+2,%X 
A,P 
RPNASCT 
OPCNER 
WTASCT 
OPCNER 
OPCNER 
NPCHER 
OPENER 
OPEN 
OPEN 
CLOSE 
CLOSE 
WPTEQE 
EXTEOR 
RNOSTAT 
OPCHER 
OPCNER 
JENAR 
IGNQOR 
TGNOR 


RRANCH VYA TABI E 

aA REAN aSrTt 

9] RFAND AINARY 

AQ WRITE ascr? 

o3 WRITE BTNARY 

4 REWINA 

BaCK SPACE RECORD 

76 FORWARD SPACE RFECARNA 
AZT OPEN 

08 OPEN REWIND 

aQ CLOSE 

1? CLOSE WRITE ENAeNF oF ILE 
11 WRITE ENN OF FILE 

12 CHANGE RECORD LFNGTH 
{3 REAN PEVICE STaTus 
{4 BACK SPacr FILE 

15 FORWARD SPACE FILE 
16 UNLOAD 
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Table D-6. Data Terminal DSR Listing (Continued) 


BaP ROLE 
NATA TERMINAL DSR «& T/0 CALI FNTRY SHFET Agra 
“ase PES 
wade APa” NPCRER FAI § FATAL FRROR FNTRY 
¥WVAQR CIC7 eae rorar FATAL EFRRNR 
v227 4209 ADS FXTT ARORT,FLLAPR 
“UAQR WP3H YTENAOR Ft § 
AACR CICF A237 rnc QM SET PRR TENNRE Fla 
Wlt2g ARAN A238 RTT SFT, PSR, PPBSF) ,PRACPI 
VAQZA FROA UAGSS PRI FYTFOR 
vrge wapar CLOSE Fil & 
vege ocreo| 68a SEV XxX CLOSE “RITE FOF ? 
“eer 7TROR Yi2ae Rigel! EXTENE Na 
G2OR 24% WRIFOF FQ! § 
Pagan BanYr U94d OLNa BL FALST YES, SENN 3 LINE FFENS 
P “A22F K1CS 
vroFr 7429 A2A™ RRL eXXlSST 
@4s5A FRA wat RRIi EXTEQF 
Aaa? * 
“248 al DATA TEQMYINAL ASR @ JTATEFRRUPT ENTRY POINT 
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SaP ROLC 
QaTa TEPMTNAL 


a% 


wags 
OA52 


BASS 


OiAgs4 
WAg58 
AASB 
WP $7 
“AIR 
04359 
wAsa 
Wm aR 


64s 
au sn 
Amar 
WiASE 


AGIA 
anal 
wea? 
QAAR 
giig4 
nit4as 
@iA4& 
Ava? 
Baga 


WUAAQ 
wuda 
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GAS! 
1701 
C707 
37 ae 
NR ge 
PAAA 


PRAat 


7ANG 
Caak 
C7C7 


SAY? 


7TREA 
aase 
Cadé 
O7C7 
3RUP 
7917 
“ueae 
CAas 
c7c7 
SAA 
nRas 
7RaSr 
NRA 
7R SR 
RF7F 
7 4nyv 
AAA 
Arar 
7n16 


Table D-6, 


Data Terminal DSR Listing (Continued) 


NSR © INTFRPUPT ENTRY POINT 


A249 


g2sc 


uo5i 
vese 
A25z 
vase 


A284 


A256 
A287 
2958 
“25S 
U?6r 
n261 
U2Oe 
wP6s 
A262 
Ag6® 
nPKE, 
A267 
A268 
v2?P6s 
vere 
A271 
“eT? 
Ao7e 
vaT7g 
427e 
Ur7e 


0277 


‘AP7R 


W276 


ISINT 


WRT INT 


RNOINT 


PE! 

FQ § 

LOY 84° 

Tacas 
TOPUS READ, DATA,A 
TARZ A 

RRI} RAINT 

TARZ 1 

RRI! WRITINT 

CRx 3 

TNCOM 

TNRUS WRITE, MATA, 
RQt! EYTNRM 

Fal & 

cRy 4 

Toca” 

TORUS WRITE, PaTa,Y 
RRIi wePDTWVC, RP 
Fal § 

cRyY 4 

racas 

TORUS wRITTe sata 
TARZ 3 

ARI! EYTNRe 

TARZ 4 

MRI! EYTNRY 

ANN ap7JF 

MARL TCT CHAP 

RRIi wPATRVC,AR 
HER 


SHFEY #aag 


INTERRUPT BNTRY POINT 
TNITTALIZE TA CLEAR TNTERRIIPT 


READ INTERRUPT IN, 


REAM INTERRUPT ? 
VES 
WRITE INTERRIIPT ? 


YES 
ASSUME STATUS CHANKRE INTERRLIPT 


CLEAR “RITTER INTERRIIPT 


RERANCH VTA WRITE VPCTOR 


PLEAS BEAN INTERRUPT 


TEST FRAMING ERRNAR 

TEST TIMING ERROR 

MASK STATUS BITS 

CHECK SPECTAL CHARACTERS 


NO, BRANCH TA PEAN VECTOR 


DATA TERMTNAL ASR e@ OPEN ANA APEN REWIND 
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SAP 2OLFr 


NATA TEKMINAL N&R @ 


gage 
Auden 
Waa 
Ov 4F 
AU4F 
“age 


ans 
“usa 
“Age 
BAS4 


uss 
AASB 


P 8487 
P GASA 
Pp auso 


ve aR 
7°eC 
AAAR 
74QF 
C7c? 
ayes 
7aAA 


uns 
C7C7 
A383 
vues 
7404 
wags 
C7C7 
ange 


agen 
ayer 
vigFr 
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Table D-6. 


v2a? 
“281 
“Ada 
ursy 
VARS 
2as 
V2BF 
0? 87 
“ueas 
“PRG 
A?or 
291 
“ogre 
v2e9% 
A2R4 
#298 
Aggoe 
A997 
A298 
v29¢6 
asta 
adut 
wsas 
Asay 
“V3eae 
AxIAS 
axaé 


Data Terminal DSR Listing (Continued) 


NPEN AND MPEN REWITNA SHFET aaa 
PES 
* NOT&3 TSRST MIST FOLLAW @ARL TCHHAR & RRU wPOTRVC,BR 
TSRST FOU § CAMCFL I/N ENTRY 
ARI SFTPTS SFY READ VECTOR TH IGNORE 
LNA XYRKAR 
RRI, #XXLIST SEND CR/LE 
Tora CLEAR LINE FEER TGNORE RIT 
PIT CLEAR, PST,PRTINEV,PNTLET 
RRii EXTEO®e FYTYT THE NSR 
2 
OPEN FQ § 
TOCO™M CLEAR TGNORE LINE FEFA FLA 
PIT CIlLEAR, POT, PATNEV,PDITLFY 
| Da Y¥YCRLE 
RRL w¥XLIST SEND CR/ILF 
EYTFOR Fol 8 
TOCOM ASR ENA eAFeRECARA FXTT 
FXTT ENR,@ 
a 
e 
* 
X¥CRLF DATA XCRLE 
XXBKAR MATA XACKAR 
XYLIST PATA XLIST 


HEN DATA TERMTNAL DSR » READ assert 
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Table D-6. Data Terminal DSR Listing (Continued) 
SaP ROLC 
OaTA TERMINAL OSR em REAN ASCTY SHEET any) 
Asa? PES 
VOSA BAAR OYWREP FQ § 
C454 C7C7 asac Tarqe SEF TF ALREADY THROUGH LAOP 
@A5R 491F ASL? RIT SKYPA,PAT,PRTFLG,PDTOWR 
vase Fane aaa RRIt = DOINP YES, GET THE RFPI ¥ 
“50 C7C7 asic TOCO™ NO, SET QUTPIIT WITH REPLY ATT 
CASE AATF ast? RIT SET,POT,PNTFLG,POTOWR 
WPISF AAA ANL4 LDA 8A SET UP PPR RATAS 
ASH ARIS CHGTAL FAI’ §g SET UP NEW PRB AND NR Anes 
CAGA CABS BALE RAM A,M SET IP NEW PRB ANNRESS 
461 C83P asir PMO Mia 
@462 BAP Ass STA PNTPRAR,AR SAVE IN PNT 
@f63 C7C7 as1¢ Tora” BET NEW DATA BUFFER ADNRESS 
"64 29a Adar FEG LOAD,A, PRA, PRRNRA 
VABH BIH Are) STA PNTORA,AR SAVE IN PNT 
fAGR FRA® BSOR RRU =TOENT 
4967 AS2% RIBAUT Fol § FNTER HERE TF RUAQUT INPUT 
AAG? AGFA ysee LNA XYRKAR 
w“4§6R J4FO “see ARI w#Y¥Y¥I TST SEND BACK ARROW, CR, LF 
ACh6O9 B32E ROASCT FOI & 
6469 C7C7 uUrer7 TNcaM AUTPLT WITH REPLY ? 
426A $ett 4328 ATT SKTIPA, PRA, PPRIIFL ,PRANWR 
VABR FREF Y3O9 PRI! ATWREP YES 
A°6C ASST ONINP FOU $ 
@36r C7C7 A331 TOROM JEPO TNPLUT RFCARN LENGTH 
“VGHN 290A AEP REG STOVE,E, PER, PEROR: 
@°6F @333 RNGREL FAI § 
ovse C77  wrde Toros SLPRFSS RELI ? 
BABE 1998 AISS RTT SkKIPA,PPR,PRBIIFL ,PRASAL 
ORAZ FRAP “336 PRI! DONTREA YES 
WAF1 UATAF ARS7 LDA #RELL 
wA72 F7O7F7Q WS3B BRI WRITCHR WRITE THE CHARACTER 
V77S ASSES NANTREA FOL & 
WI73 wear Adar @L Na sTAKCHR SFY tiP RF AN VECTOR 
P wA74A ¢16R 
MWI7H B11K Ad4t STA PRTR8vet,ae TO ACCEPT NEXT CHARACTER 
BWAFR FROUS USAF RRL SETA 
VIF7T 7ROA “ASE BRIE EYTARM 
A344 fe 
AP7TR ~SA® SFTRIRN FOU §& 
AY7R JAAS Was LAY XFXNR* SET READ VECTOR 
0979 G116 “S47 8TY PNTRVF,4R TO IGNARE FURTHER CHARACTERS 
WA7A CS8§7 AAA QMO L,P 
ONY te ; 
AST «f 
yVA7R ASS1 SFETWIK FOU § 
PAPA BAWA AIGE LDA  XFYNRM SET “RITE VETTAR 
ON7C BI17 a3? STA PNTWVC,HR TA IGNORE FURTHER TNTFRRIIPTS 
CA7N C557 Ar8S Rum | ,P 
“V35" « 
P UA7F PAP VSSE XEXNRY FATA EYT' RE 
“357 HEN N21, DSReCHAPACTER INTERRUPT YNPIIT » CANTINUED 
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Table D-6. 


NT. NSP eCHARACTER 


WA7TF 
VARMA 
WAAad4 
aNao 


Wags 
PAAR 4 
Yage 
@4gA 
2Aa7 
gage 
Wagg 
WAABA 
BABR 
248e 
@38an 
AUSF 
OUBF 
BAQgA 
@agt 
8290 


@ag9% 
eaga 
“Zags 
BAS 


Gag? 
Waga 
B99 
OAQA 
Yogr 
ener 
gagn 
BAF 
voor 
Waa 


(Am 7F 
776C 
C7?C7 
UP {Fe 
TEER 
aeas 
6F7F 
Coar 
JAE 
OP §A 
C7C7 
BAA 
6789 
chee 
78087 
DRA I 
7ALS 
C7A«A 
49uP 
7AaQO 
C7BF 
7ALC 
aegs 
DRA 
7aQN 
DRBA 
7AQr 
vag? 
C7C7 
Lair 
7807 
Bi1A 
C7C7 
AQLF 
A7TOA 
795? 
7ADAR 
aii18 


A358 
us$¢ 
Asa? 
vsét 
A362 
36% 
VSBL 
AXB® 
U36E 
Ar67 
AxK8 
A3%6S 
Aaa7ye 
as7i 
AX7? 
037% 
AS74 
Aa37% 
“376 
A377 
“s78 
A37$ 
A3BC. 
A381 
A3sBe 
assy 
A3seeé 
038% 
a38E 
@387 
u3as 
ayes 
A3Oe 
8391 
8392 
“393 
Usgo4d 
8395 
Ads9C 


Data 


erminal DSR Listing (Continued) 


TNTERRIPT TNPUT , POUNTINIEN SHEET ani? 
PEJ 
CLRSCR FN §& 
PRL WRITCHe 
racg™ 
RIT CIEAR, POT,PrTFELG,POTLFES 
RRIi RAASET 
TAKCH FQ § 
CPA sRUAQT RUR AUT ? 
SNF 
RR REBUT YES 
SARO 8 SET MSR MF CHARACTER TN 3 
toca STORE TN USER'S AUFFER 
CHAR PIIT,& 
rPL sTAR TAR ? 
SEN 
RRIt CKBIIFE in 
TARZ 1 WAS RUFFER ALREANY FIILL ? 
RRIE  EXTAIRM . VES, DON'T nM ANYTHING 
REx ,8 NO, POINT BASE TO PRA 
AMT PRBNRL, RR REMAUCE CHARACTER COUNT RY 1 
ARU S44 NECESSARY NOP TN CASE NAF SKIP 
REY M,B RESTORE BASE TA PHT 
RRII CHKEOF CHECK FOR END enFef ILE 
CKBIFF FOU § 
TABZ 1 wAS RBUFFFR aLREANY FULL ? 
BRI EXTNRM YES, DON'T NN ANYTHING 
TARZ @ BIN wE JUST FILL BIIFFER ? 
BRI! FULLBEF YES, SFE If AUTO TERMINATE 
CHKLFA EQU & 
TOCOM SEF TF LF BEFORE ECHO 
BIT S$KTP1,PNT,PNTFLG,POTLFB 
BRI! SENNCH NO, ECHO THE CHARACTER 
STA TEMPY,BR SAVE THE ECHN CHARACTER 
TOCOM CLEAR LF BEFARE FCHO FLAG 
RIT CLEAR, POT,PATFELG,PDTLEB 
LDA osLF 
BRL XMTCHR SEND THE LF 
RRL SETWIR SET WRITE VFCTOAR TO TGNORE 
LDA TEMPY,BR RESTORE THE FCHO CHARACTER 
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Table D-6. Data Terminal DSR Listing (Continued) 


SAP ROL: 
Oele MSPaetHARACTER YNTERRUPT INPUT , PONTINUEN SHEET aAis 
a397 PEJ 
GAAI O@39R8 SENNICH EQ § 
O2AL FAA AROSE PRL WRICHR FOHO CHARACTER TH TERMINAL 
29a? w40e YVWAT FOU § 
APAP wA4At IVRAT Fou §& 
APAD2 O4A2 EXTNRM EQU §& 
@BA2 C7C7 640% Toro NORPMAL OSR EXIT 
@AAS ADAP NAHE FXIT NORM,2 
ACAS4 WM4AZ FIILLBF EQU $ COME HERE JTF BUFFER JUST FULL 
OSAA C7C7 6406 TOCOM AUTOeTERMINATE ? 
A*AS JAR12 A447 RIT SKYP{,PRA,PRBIIFL, PRRAT™ 
WAAR TAF BAAR PRI} CHKLER NO 
QAAPF FADNF BAAS RRL SETRIG NISCARD FURTHER EHARACTERS 
BARR FASE Yale PRL 8 SNDCHR FCHO THE CHARACTER 
6AaG FRAS Ali RRti CHKEOF CHECK FOR END eA ePILE 
W412 « 
vais 
| Able * 
PAAA ASAI" GATACR EQ §& ENTER HERE ON CGR INPUT 
CAmA BFAC HALE LOa XYCRLE 
@AAR C7CP A4L? Tacoa™ SUPRFSS CR/LF FCHO ? 
QAAr 1A14 BALA RYT SKIP1, PAPA PRRIIFL ,PRASER 
WA9an 7PSR Balls PRL XLIST SEND CR/LF 
A“AF 7OCO Y4e7 BRL 8 SFTRIC TGNORE FURTHER INPUT 
AUAP 2421 CHKFOF FQ! § 
WAAF FSIS Bane LNA *#PNTHARA, BF 100K AT FIRST WORNH IN ABLUFFFR 
VAB™ BRAR 423 @CPA BFNIFTL FNDeNFerFILE ? 
@P?AY ~APAA 
WARP CNA Aa2e SEN 
ABS FRAY A4QE ARI! EXTEOR NN, FXTT NSR 
0434 CIC? HAZE Toro LOnk AT TNPUT COUNT 
4285 2VAR Ade? BER LOAN, A, PRR, PRADRL 
G7BR AFAL A428 CPA #4 TS IT AY LEAST 2 ? 
A%B7 CNAC 426 SLT 
¢7BR Fagor “sage ARI! EYTFEQR NO, FXTYT NSR 
WAKHQ C7C7 b4$) Tora YES, SET EQF FLAG YN PRB 
VAHA PRAD WAAZS RIT SFT,PFR,PRASF! ,PRAENF 
HAaABR FROG N48y RRI} EYTFEOR FYTT NSR 
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Table D-6. Data Terminal DSR Listing (Continued) 
SaP ROLS 
Mele MSF ePHARACTER ITNTERRIIPT YNPUT , PONTINIEN SHEET fata 
ASSL PES 
AVBF A438 RACKSP FQ | FNTER HERE YF RACKSPACE TNPUT 
QAar “CICF wade TOCOM LONK AT INPUT COUNT 
HAHN Q21nP Uses? REG LOAN,F, PRA,PRRAAEL 
YPSF FAL w4d8 SNZ € TS YT ZERO 7? 
O"%RF FRED W4ASS BRI EY TNRM VES, EXIT nse 
YWAC! {RB« vAal RYT SKIPL,PAT,PRTREV, POTRCK 
eFC? urge waar LOA sRKSLSH NO, JISF PACK SLASH INSTEAD 
V~CS 7°24 hay RRL SNNACHR SEND RACK SPACF AR SI.ASH 
W964 7VBR WAAS PFRL SET“IGE 
WHEN C7C7 wW4as TNA OM LONK AT INPUT COUNT 
V~ECR 21AP “4d REG LOAN,F,PRA,PRANPL 
VO? C711 6447 POF €,E MECREMENT CHARACTER COUNT 
BA2C8 CICF W46§ yacas PLY RACK IN PRA 
ACO 2972 “Ase FEG STORF,F,PPS8,PPBARL 
ACA C7C7 *848¢ Tongs SEF YF LF AFTER RAS 
@3ACR {RRP 4A RIT SKIPI,PRT,PRIFEV,POTLFE 
“WAC FRAP AbSS RRIt RACKS4 AON'Y SET LF BEFARE FCHO BATT 
2PCN CI7C7 48% Toco SET LF BFCORE FCHOQ BIT 
OCF wALF 452 RTT SET,PrT, PNATFLE,FPOTLFR 
WacFr A455 RACKS FOU & 
APCr CFAL AAKE SNZ E 
Vit} =F AD] AAS? RRIl FYT'NRM 
ED C7C? A4ss8 jTacas CRT? 
WAND {RRA WAHS RIT SkIPL,PNT,PRTREV, POTFEH 
AAA FACF A@46" BRI! FX TNR Lan 6) 
WADA adryR W464 IDA POTNEV,aR 
viens Rave yas @AtQ a>FF “aSkK WIOTR 
Vane (AA FF 
O77 OFud VW46Y SUR s>3 
WAN® BIB? AbbZ STA $43 
WAL)S V7TAae AAG LOA av 
VA SRAP Hane eOntV steak 
WANA Paar 
Oem ChYL “W467 SZF OF 
W3M PROS AAGB BRI 6OFYTtIRM 
SF BILLA Y469 LOA efliRue 
WADE FREI w4a7e RRI: SFNINCH 
AA? | * 
W472 «@ 
APES WA7% LINFER Fatt & FNTEP HERE TF LF INPUT 
UNMET  AAAL AAT S @LDA YXRKAR 
C*E1 wnAsAr . 
CAEP FOR WATE RR XLIST SEO RACK ARROW, CR, LF 
WAES BOL? Aa7e STF PATNCT,AaR FERQ OUTPUT COUNT 
APEA Fa4R WATT PRL LSTIIN 1 IST THE INPHIY RECNRN 
ANES CIC7 “ATR TOcOM PLFAR LF REFARE FCHO RIT 
@AEKR APLF YWa7d RIT CLEAR,PNT,POTFLG,PDTLFS 
CAF? FABRA WARe RRi RNGREI ACCEPT FURTHER INPLT 
VARI * 
~ABE # 
“468% HEN DATA TERPMTNAL DSR e& CHARALTER TRANSMISSTON 
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Table D-6. Data Terminal DSR Listing (Continued) 


SaP RALC 

DNATA TERMINAL DSR =» CHARACTER TRANSMISSTON SHEET aaiS 
A4BS PES 
DAB ee HH EE HERRERA ATES UTREKHEHEERHEHEAEHEREHER EH HREEHE RENE ED 
A46e « 
@487 « SIBROINTINE TO SENT ANF CHARACTER FROM THE AwREGYISTER, 
A4QR « RETURN YS WHEN CHARACTER TRANSMISSION 8 COMPLETED, 
A489 « 
UV Ve PER ERERERSRECE ECS EERE CELE SECI CSC EC CEES ESESSOSEE CECE SAS ES SY 
Aagt * 

BAER A&Qe SNDOCHR FOU §& 

AER C551 “ages RMN L,E 

WAEQ BOF Hage STF PNTWVC,&R SAVE RETIIRN TN WRITE VECTOR 

QAFA FAA nsOF RRI =OWRTCHR NUTPHT THE CHATALTER 

C@AEP 7RRBE YsOe PRU EXTNRE FXTT O8R 
A497 «© 
BAQR eee RHEE REE EEE TETHER HEREHENERTETAETE RTE RETR ENEH EROS 
W49S 
QSar «# SiBROUTINE TO SENT ANF CHARACTER FROM THF AeREGTSTER, 
O50], w# RETURN TS IMMFEDYATE, 
ASAC « 
PRA eR RPE REET EEE RHETT EEE TEETER ERE E TERETE EEE ETE REE EE ES 

CF7EC 45HL wWRICHR Fol § 

aaet Sree wsHS AND ee7Fr 

PAEN DRS AKA SaRQ { SET INTERFACE TRANSMIT BIT 

QGPEF C707 AAT Tara™M 

GAaEF 3Rar ASAB TORUS WRITE,DATA,A 

GoFA C8857 B8as RMM L,P RETURN 
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SaP ROLLS 


Nala TESMINAL 


BaF 
eAFO 
Gar 
WAR 4 
Qiks 
wvFE 
AVF 7 
“AFR 
our” 
VAR A 
dAPR 
P BAF 
WF’ 
OrFE 
WUPF 
214a 


B14 
Y1AP 
vias 
Wid 
ius 


¢1 Aw 
P 4107 
wisn 
w1aa 
WLAA 


@18R 
VIA 
eYyn 


iar 
B1AF 
O119 
11} 
e142 
O1153 


w1it6 
@115 
Vii 
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AMPS 
SF 7F 
6F ur 
cohae 
7P44 
BFAA 
CR At 
7RYO 
AFUc 
oner 
7REF: 
Yaar 
viC& 
C7C? 
13n4 
9744 
FPRYA 
PIU s 
VILP 
ORAS 
TALC 
AZgA 
7AAS 
Atak 
AAUP 
vine 
C7C7 
{%R8 
2787 
PLAR 
8119 
C551 
BOA 
ALF 
AS19 
NAA! 
TOYA 
§1 40° 
7AD% 
JAFFA 
“itd 
DR4S 
B81 UR 
C"57 


Table D-6. Data Terminal DSR Listing (Continued) 

DSR ee CHARACTER TRANSAISSTON SHFET AiR 
asqr PES 

AST 4 RUPEE EE HEHEHE RETR ERHEHETEH RHE ERO HE KEN ER HHH HEHEHE ERE 
ARIS « 

“Sie e S'IIBRPOUTINE TN SFNMD SINGLE CHAPARTERS, NSAGF TS STMTLAR 
Y8{L 2» TA SNDCKR, EXCEPT SPECIAL CHARACTERS ARF fONVERTED Tr 
VS1® w» THE NFCFSSAPY CHARPALTFER STRINGS, MAY ALSN RE ENTFRED AT 
AS1£ «# XLIST TO SEND A PREmSPECTFIFD STRING, 

W817 -« 

AS18 SEMPRE KET RETEREREHEMEHAHKSEREREEEHREREEHRTETHHEREEEEHEKREROSRY 
YS5i¢S YXMTCTHR FOI § 

ASOT AN en7F 

~S21 CPA sfR CAPRIAGE RETIIRN ? 

ASOS SNF 

vsSoe. PRU XR VES 

AROL CPA at.F LINE FEED ? 

Ase" SNF 

“vitor PRI! XIF YES 

aso? CPA aFF FOPM FEEN ? 

“UR2R SEA 

“vSeg RR SNDCRR NO, JUST TRANSMYTTFT AS ITS 
“Sar @L NA sFFLST 

4534 TAfOM SEF IF HOME ON FORM FEFR 
“W532 RIT SK ITPU,POT, PrThEV, PNTFFH 

V535%, ADR SHMLSTeF FIST PRANGE CHARACTER LIST ADR 
WS3zZ RRI = XLIST SEND FARM BEED ENLTVALFNT 
aS3" XLF FOI §& 

Asse LOA PATXEV,AR 

ASS7 TARZ PNTLFT SEF YF LF TGNNRE RTT SFT 
Asss PRI! §KPLE IGNORE LINE FEED 

835 LMA XILFLST SEND LINE FEFN EQUIVALENT 
ear RRI! xXLIST 

A541 XCR Frit 6 6§ 

Asae @LPA BCRILST 

a5 4% Toros SFF TF ANE NILI AFTER CR 
hey 84 RIT SKIPA, POT, PONITNEV , POTINL 

v4" ADM sCRALSTeCA1I ST 

AS46 YXLIST FAL §$ SEND THE CHARARTER LIST? 
“uS47 STA TFEMP?2,RB9 SAVE LIST TNNEY 

A548 RMA L,E 

wuSasg STF TEMP3,AR RPETLIOEN ADR 

“SS? LSTLUP Fol’ § 

“551 LDA #TEMP?,8R RET A CHARACTER 

“v&§2 TARZ 1 END OF LYST ? 

As5% RRIt wTEY¥P3,AR YFS, RETURN 

A®5Z IMn TEMP2,BR NO, YTNCREMENT YNNEY 

B55 RRI S*NCHR ANT SEND THE CHARACTER 
“s§e RRI' LSTLUP AO NEXT CHARACTER 

A557 SKPLF Fal § 

“SSA SARZ PNTLFT PESEY LF IGNORE AIT 

A589 STA PNTNEV,RR 

AS6? FMM L,P RETURN 
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SaP ROALC 


DATA TEPMTINAL DSR @ CHARACTER TRANSMISSTON 


W147 
aqaa 
vil9 
WLiLA 
wit 
wiit 
v140 
OAILE 
CIF 
#12° 
e124 
W122 
8123 


4124 . 
¥125 
W124 
#127 
W12A 
¥129 
CIQA 
v12A 
4412C 
wien 
Ci2ar 
O12F 
0149 
0131 
“139 
01355 
“W194 
013% 
B138 
0137 
@4§A 


P @139 


117 
CS8$r 
aris 
C7C7 
SRO 
ORAt 
nye 
3SF7F 


bF LO 


ence 
7RQS 
BELA 
cnaa 
a7ae 
A124 
70CC 
c7c? 
1A43 
7RE 4 
a11F 
DRA 


Bi1R 


SFFE 
69192 
Cn2n 
75EA 
v7un 
70°Cce 
wAa7 
C7C7 
1387 
2703 
7en8 
C7C7 
years 
7AEW 


vics 


Table D-6., 


“561 
W562 
656% 
ASKS 
O56" 
AS6E 
“R67 
“68 
ws6S 
US77 
A574 
Us72 


Ag7® . 


ABTS 
A572 


AS7TE | 


aS77 


AS78 


ANTS 
agar 
AS AY 
ASAD 
“say 
vSAS 
4885 
ABS, 
ASA? 
s5Aa8 
ASB9 
“A597 
4591 
asee 
“89% 
“592 
AS9% 
4sgoe 
aS9O7 
ASQOS 
AaSQS 
ABAP 
ABU 
WYBUS 


LSTILIN 


CHAROK 


* 


* 
XLFLSY 
* 


Data Terminal DSR Listing (Continued) 


PES 
FOU 
RMN 
STA f 
© TOCOM 
. ERAR 
- TARZ 
- RARE 
ANA 
-CPA 
SLF 
FR! 
CPA 
SLT 
Oa 
Ft. 


. BRL 


Toco 
RUT 
ARI 
LDA 
SARZ 
STA 
ANT 
CRA 
SEf 
PRI 
my 
RRI 
LDA 
TOCOM 
RYT 
Ann 
FRI. 
Toco” 
AIT 
BRI 


PATA 


8 
L,A . 
EMP1,AR 


GET. A 

{ 
#TE“PY, RR 
ar7F 

z>il 


CHA Nk 
a>i4 


eNIIEL 
§ 
XMTCHR 


SHEET aai7 


LIST USER BUFFFR AN TERMTNAL 


SAVE RETURN 


GET & CHARACTER 


RUFFFR EMPTY ? 
YES, EXIT ROLITINE 


TF THE CHARACTER 8 IN THE 
RANGF AF »{A TN 914 
CHANGE IT TO & NULL 


‘0, SEND THE CHARACTER 
SEF TF FORMATTFD O!'YTPUT 


SKIP1,PR8,PRBIIFL ,PRRFAC 


LSTLIN¢2 
PATNEYV, 8&8 
POTLET 
PONTOEV,AR 
a>FF 
PAHTOCT,&R 


LSTLI* 492 
afk 
XMTCHR 
XLFLST 


LOAK AT REVICE DESCRIPTIAN 
CLEAR THF LF IGNORE FLAG 


CHECK CAPRTAGE SIZE 
EQUAL TO GUTPUT FCOINT ? 


No 
SEND CARRIAGE RETURN 


POINT TO LINF FEFD LIST 
NIN NEVICE NN TTS AWN LF ? 


SKIPA, PHT, PHTHEV,POTLFA 


a { 


XLIST 


YES, SKIP THE LF 
SFND LF oR LF/CL®R FOL 
SEY THE LF IGNQNRE FLAG 


SFT,POT,PATNEV,PNTLET 


LSTLINe? 


LFLST 


60 ON MORE 


KEM DATA TESMINAL DSk w» WRITE AaSflry 
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Table D-6. Data Terminal DSR Listing (Continued) 


gaP RIALC 
Nata TEEMTINAL NSR w WRITE aSCTT SHEET fA{R 
aFAy PEJ 
A{3A ABAL WTASCT FOU § 
VtSA BOLE AKUS STF PNTOCT,&R JEPN OUTPUT PONT 
ul3nH C7C7 wAsae Toro” FORMATTEN NUTPUT >? 
wigr {RGR ARUP RTT SKIP1,PRA,PRBIIFI ,PRRFAC 
wi3N J7RAPKR BKUB PRI! SNDILIN NO FORMATTING 
“VIt3F S112 Baas IMM PRTACT,RR TNOCREMENT PAST FORMAT WORE 
¥VISF 8119 akic T™N PNOTOCT,PR 
014" S10 A614 LDA #PDOTNRA,RP LONK AT FORMATTING woRn 
14! pRpac wéie TARZ POSFRY POST FORMATTING ? 
142 7904 ABs ARL LSTLI* YES, LYST THE RECNRNA 
14% 7AA7 ARLES RRL FORMAT NO FORMATTING 
1446 864% SNOLIM FQU § 
Widd 7°H2 wvésl1e RRL LSTLIN AUMMY CALL TF ALREADY NONE 
¥vi45 wield AKL? LOA PATFLG,AR LOOK AT POT FL aG8 
W14A PRUE A118 TARO PNTOWR WAS THTS AN OMUTPLIT WITH PEPLY 
@147 FREI BBLS BRI FXEORY NO, WE APE FINTSHEN 
G14a OA7FC B62 LDA sed RESTORE ORIGINAL PRB AMAR 
0149 7CWP ARO] @BRU CHGTAL. RESET PRR ANA AB ADRS 
P 0144 WrEe? 
AGG? «# 
vh23 HEN DATA TERMTNAL DSR e@ FARMATTEN OUTPUT / REAN STA 
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fT 6 


SaP ROLC 


NaTA TERMINAL 


aq 4A 
e14er 
wi4f 
“1 4F 
V1 4F 
15% 
eB | 


#152 
“vi§s 
0154 
W154 
6154 
W157 


“435A 
“{4o 
“iSaA 
d¢9R 
w18¢ 
@4$h 
ei SF 
Wt ar 


HL 6a 
w161 
162 


14h 
C882 
8448 
wsir 
NAGA 
FRU? 
avec 
79°9F 
“15? 
ASIP 
DROF 
7843 
DRAF 
7Ra9 
7NqR 


ATAA 


7297 
vSie 
NRIF 
7miA 
A7AA 
7°9? 
7HyR 
P1609 
azar 
7aBF 
mn 


a16s 


#445 
W144 
#164 
vi6s 
“167 
4168 


e169 
“i6a 


Ct7c7 
3ene 
3Aee 
BALF 
C7C7 
QAu? 
¥169 
C7C7 
aRaa 
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Table D-6, 


OSR « 


ABQS 
AB2e 
vRet 
“Aso? 
vk28 
AK2S 
ARIEL 
aaS1 
aBS2 
ARXY 
ABS4 
BSS® 
VE SE 
ARR 
AgRSS 
Beas 
AR4L 
“eat 
VR4E 
vk 4%, 
hey 4 
AR Ae 
AK 4e 
AK47 
448 
AR 4S 
VASEC. 
AH 1 
aK5S 
A465% 
W682 
ABKS 
ARSE 
AGBS7 
44658 


ABSsE 
Abb 
A614 
w662 
W662 
ARGBEL 
A665 


FARMATTED OUTPUT 7 READ STATUS 


FORMAT 


NOCR 


FMTF 


EMTEF 


ROSTAT 


FYENRY 


PES 

EQ § 

RMO L,A 

STA TEMPY, 89 
(DA #*POTDRA,BR 
TARN CRFARM 

RRI! NOCR 

LOA BCR 

RRI XMT CHR 

Fit § 

LN& wPNTNRA, BR 
YJARZ LFFORM 

RRU FMTLE 

TARZ FFFOR™ 

RR FMYPFEF 

BRI *TEMP1,AR 
FAL! $ 

LDA stlF 

RRL XMTCHE 

LDA #PDTNRA, AR 
TARO LFOFR™ 

RARIt TEMP ,RR 
LOA sLF 

RRI XMTCHA 

RRL w#TEMPY,AR 
F fal! § 

LNA eFF 

RR XMICHS 

PRI' w#TEYP1,RR 
FQU § 

Toro 

TORUS REAN,DATA,A 
@AND 2>B8A1F 
toca» 

PEG 

Fol’ & 

rorom 

EXTT ENR, 

HER 


Data Terminal DSR Listing (Continued) 


SHFET aa19 


SAVE RETIIAN 

LONK AY FORMAT WARNT 
CARRTAGE RETIIRN 9 
NO 
YES 
YES, SENN TT ONT 
LOank 
LYNE 
YES 
FORM 
YES 
NOTHING aT ALL, RETURN 
SEND #1 LINE FEEN 

NO 

SED THE LINE FEED 

LONK AT THE FORMAT worn 
SECOND LINE FEED 9 


AT FORMAT WORT AGAIN 
FEED 


FRFEN 9 


NO, RETURN TA CALLER 
VES 
YES, SFND TT QUT 


TREN RETURN 


SEND THE FORM FEEN 


READ INTERFACE STaTUS WORD 


RETUPN YN SRA 


STOPE, A, PRB, PRADREL 


“MATA TESMTNAL OSR w CHARACTER INTERRUPT INPIIT 
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Table D-6. Data Terminal DSR Listing (Continued) 


GaP ROLLS 


Nata TERMINAL [SR «@ CHARACTER INTEFROUPT TMPHIT SHFET anor 


VVvVsvveVvuvuvuBsbpvvuvevueuvvswvvbvwvsusocivsvvdsd—sdvsed«diyaso 


416A 
6F er 
Cnae 
7c ar 
Cae 
12u1 
C827 
AAA? 
ACAD 
7A? 
APA? 
AAA? 
OAD 
Y™AD 
AAAD 
Barc 
wegs 
v1gé 
AAD 
AAA? 
AAA 
WAED 
@PAD 
GAAD 
VPA 
QAAP 
GAAP 
AAAQ 
PRAQ 
QAAP 
BAA? 
O7A2 
OF AQ 
@i AR 
OAAQ 
vi9{ 
UAAQ 
QAAQ 
QA7F 
191 
C8e9 
C7C7 
2982 
C3a0 
7A&BA 
A19A 
C802 
C7C7 
2102 


A66E 
W467 
ARBR 
nKBO 
C477 
Aa74 
vere 
Aa7% 
ARTS 
ORT" 
W67E 
e877 
AR7K 
ABTS 
QAR? 
A6B4 
wner 
G68. 
A®BZ 
Baae 
aABEe 
WKB? 
asae 
@6ae 
vaor. 
0491 
asor 
n693 
uso4 
uRoS 
aao6 
QROT 
0698 
2699 
a7a0, 
B71 
a7ae 
a7a3 
A704 
n708 
A706 
a7raz 
a7a8 
A789 
“yi 
a7ii 
a7vie 
@71y 
O714 
avis 
e716 
“7s? 


TAKCHR 


XFXTNR 


RIGARR 


DWNARR 


PE J 

FQU 

CPA 

SGT 

RRII 

RMA 

LOX 

RMN 

RATA 
RATA 
PATA 
PATA 
PATA 
PATA 
DNATA 
PATA 
NaTa 
NATTA 
PATA 
NATA 
PATA 
PATA 
MATA 
NATA 
MATA 
CATA 
DNATA 
DATA 
DATA 
RATA 
CATA 
DATA 
MATA 
DATA 
DATA 
DATA 
DATA 
NATA 
AATA 
DATA 
EqQu 

RMA 


TOCOM 


REG 
RIN 
BRI 
EQl 
RMA 


Toco™ 


REG 
LOA 
@ANO 


$ 

wr»? 

wYTAKCH 

A,™ 

$e2,%X 

X,P 

EXTNRM @ NULL. 

FYTNRM a4 

EYTIR™ 02 HOME CURSOR 
EYTNR™ ay 

ExTNRM cr | 

EXTNRM | 

EXTAIRM a6 

EXYTNR™ a7 BELL 

BaCKSP AA RBACKSPACE OR LURSAR LEFT 
TAKCHI AQ AARTZANTAL TAA 
DWNARR PA LINF FEFA OR FURSAR DOWN 
EYTUR™ AR 

EX TAIRM ac FARM FEED 
GNTACR AD CARPIAGF RETURN 
LINFEN OF LYST INPUT LINE 
EXYTNRe¥ ar 

EXTNRM ia DLE 

EXTNRM 11 

EXTNRM 19 PRINT 

EYTNRM 13 

EXTNRY 44 0C4 

EXTNRM {5 

EXTNR™ 16 

EX TNR” 17 CLEAR END OF LINE 
EXTNRM 18 

EXTNRM 19 

UPARRN (A CLIRSOR UP 
EXTNRM 18 

RIGARR 1C CURSOR ®IGHT 
EXTNRM in 

EXTNRM 1€ 

CLRSCR 1° CLEAR SCREEN 

$ 

A,X 

LOAN, 4, PRB, PRADRL 

A,A 

DWNAR{ 

8 

A,X 

LOAN, F, PRA, PRADRL 

POTNEV,AR 

apFPr MASK WIOTH 
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SAP ROLE 
jaTa TERMINAL 
wi9t e2Fao 
¥19N Cage 
A19F 
@19F C7C7.. 
G19F {RBA 
Q{an 7fOR 
OL A4 C7C? 
BLA? 2183 
PiasS C41? 
@ia4 Chan 
C1a5 F7CCR 
ALA‘ 
V{AKB CIC7 
@1A7 2B? 
ayaa CS2eP 
B1iaAQ9 7CAP 
P 61AA APA 
“LAR 
@1AR €7C7 
@iar = 1RB4 
€1an 7CCS 
O1AE €7C7 
WiAF 21820 
4184 OLR 
WiBt sae 
01892 BaFF 
4183 PFA 
4184 C4le 
¥185 Chae 
18H F7CBA 
1R7 Cra) 
Vina CAL 
i189 {714 
@194 7RER 
P @18R “ABs 


Table D-6, 


CSR @ 


8718 
“716 
A720 
A721. 
A722 
A723 
A724 


8725 


A726 
“727 
4728 
ave? 
a7se 
“7si 
A732 
“73% 


A734 
A73SS 
a7 SF. 
4737 
4738 
A73S 
a74ec 
v7 41 


“742 
a7vaz 
A74é 
a7 as 
A7 4F 
A747 
748 
A74¢ 
47 5¢. 
“751 


CHARACTER INTFRRUPT INPIIT 


NWNAR 4 


DWNAR? 


UPARRNA 


XTAKCH 


SUR s8>2 

RAN E,A 

Fol 6§ 

TOCOM CRT? 


RIT SKIPL,PNT,PATNEV,PDTFFH 
BRI @#XEXTNR 


INtoM 

REG LOAD,F,LAT,LOTOPC 
RCa €,A 

SGT 

RRII wY¥EXYTNR 

FOl' § 

Tatas 

REG STORE,A,P&B,PRANRL 
PMN X.A 


@BRU SFNOCH 


FOU 

raecoM CRIT? 

RIT SKIPL,POT,PRINEV,POTFEH 
ARI! wYFYTNR Ts) 

TOCOM 


REF LOAS,F, PRA, PRANRL 
LOA PRTSEV,AR 


@AND e>PP MASK WTtDTH 
SiR s>2 

RCA EA 

SGF 

RR! *XEYTNR 

RSI) A,E 

RMM E,A 


1D¥ esCiRUP 
BRI! DWNARD 
RATA TAKCH) 
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Table D-6. Data Terminal DSR Listing (Continued) 


Sar WOLT 
NATA TERMINAL NSR =m SPEFTAL CHARACTER LISTS SHEET ago? 
AZT PREY 
A7§% OCT REREHEEEHEE EET A EEE HEE EE HE ERE HEE HEE ERE EEE EHED 
A75L 
V75"= « LYSTS USEN RY THE XI IS&T SUBROIITINE, TRANSMTSSTAN 
v7S€ ww IS TERMINATED BY FIT 4 OF THE WORM FOLLOWING THE LAST 
ATS7 w« CHARACTER TN SE SENT REITING &ET, 
A758 
“v7z7s9 ROSA EKER HEEHKTEHOHEHRERETERHETERERETE HEHE HRHE ALAR EHRETES 
A766? * 
“IBC ATH XRCKAP FOI § 
WIR AARF YIKES NATA BCOKARP 
AtBO W76% YXORLF FOI §& 
“iRP ePrar A76£ AATA CR 
1BF wveve 876% PATA NULL 
HIBF yvrar aAz7é6e NATA NULL 
vice wrAae ATH DNATA NULL 
wIC{ wFAr WUTKBR PATA NULL, 
OC1CP ALA UAZFHS rata O04 
VICS “777 LFLST Fai §& 
VIER Arab A771 MATA LF 
WIC4 A172 AF7E QOATA CLELIN 
“ICR 4é4AAe ATZIX PATA P4A30 
AIC® wa77e FFLST Fit § 
wiCS FORA a77* NATA LF 
Cil7 wana A776. NATA LF 
M1CR unanh W777 NATA LF 
¥W1CQO 8778 \LFSLST FQNU § 
2109 wPrnaA A7z7S NATA LF 
ica wvrl7 waza’ DATA CLRLINX 
@1CR BOOA A7B1 PATA LF 
wiCl “mt? | A7 ae MATA CLRLIN 
VICN PAWVA AZBY RATA LF 
VICE PALF ATRE MATA CLRLIN 
BiCF 4°9R AZAR" NATA »AD™AA 
P10 A7Ra£ CRILST FOU $ 
010% YAyN A7B7 PATA CR 
L101 vapor 788 PATA NULL 
6102 avrar A789 PATA NULL 
610s aAaar 8797 PATA NULL 
¥v104 Frear “791 PATA NULL 
G@1nNs aran ar7OF NATA NULL 
1046 4997 “79% DATA »4A°8 
e107 a7gégé CRELST ENU § 
C17 eran ATO PATA CR 
@10R AAAP ATOE NaATA NULL 
#109 4A8? 8797 DATA RPaQag 
AiDA A798 HMLST FAL § 
Cina AAW? 4799 PATA HOME 
¥190R goat? gRar Pata CLRLIN 
@10° 49°97 WRAL HATA >4arA 
WROe HEN DATA TERMINAL DSR @ AUTNFLOW SOURCE 
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Table D-6. Data Terminal DSR Listing (Continued) 


SaP ROLC 
DNATA TERMINAL OSR w ALUTOFLOW SOURCE SHEET @aa23 
ARAL PE J 
AAVO ARAL FNN IzS8nT 
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Table D-6. 


Data Terminal DSR Listing (Continued) 


Sak ROLE 
SATA TERMINAL DSR o@ ANITOFI Ok SOURCE QSHFET anoa 

A AGIAD ARQeT ara|{ R ACAR RACKS] UAE 
BACKS fwvrRe R RAKSP ANAR RPKARD AASE BELL AAa7? 
BrT BSAR AKS| SR acse RR AA 4 CHAS BAAN 
Cravan atio4 CHGTRL ange CHKFOF A@Ar CHKLFR AaAQg7 
CKAIIFF 8 yogs CLEAR Aram CLASE “rer R CIR aaqye 
CLRL IN wry? CLRSCR aC7F cr avan CRILST AINA 
C#21st win? CRFARM ARAN CUuRUP AMLA Hata anna 
nr4 AC44 R NLE Aa, DOTNP A*KT NANTRG Aa7zs 
UWNAR{ ALOF DWYNAR? AYA NANARP AQAA E Ara 
ENDFY! AFAA FAR ArdA EXENRY A169 EXTT 81a 
EXTFOF arss FXTNRM aAagMAD FF arac FFFORM AAAF 
PFLST A1C4 FMTFF A160 FMYLF aiseA FORMAT A14—R 
FILL SF acaa GET “CAR GOTNCR AAA HML&T ANA 
HOME ava? ICCHAR analy IGNOR aror ILLAPNH Aaag 
Ings B48 Intn™ C7C7 INEST AMAT TSOSRT aman 
ISo0T aRaA TSINT AAS) ISRST AA4R R IVRNMT AAA? 
Ivwity VYAD L AAas LOT ArAD LOTOPr AAAs 
LF APAA LE2FRM Bear LF3LST waicgd LFFARM @anF 
LFLST AIcs LINFEN aePeEv Laan AAR4 LSTLIN @Lt7 
LSTLUP G@1AEF M AAAS NOCR 4152 NORM AAQA 
NULL AAUA OPCNERP aAveak QPEN arst OTWREP GASA 
P Ara7 PNT AAD POTAINE AAAs POTREK MAAAA# 
POTRSY araa PHTNBA aria PATPEV AAIA POTFFH @aaga 
POTFLE aoad POTLFA AMaAa?Z POTLFR Aaa PRTLFE Aaa 
POTLFY @ea3 R PATH¥XN afta PNHTNCT apie PHTNWR @aaaF 
PNTPRA aran PATRVE agia POTSTA Aris PNTWVE @ai7 
POSFRM wane PRB arvana PRRATM anae PRANDBA @aa3 
PRANRL atrag? PRBEEFOQF anne PRAFAC apas PRANPE anai 
PRANPT grgs PRBNWR ganas PRASBL Anas PRRASCR @agd 
PRBSFL aran PRBIIFL ara} PUT AQAA RMPASCT 8069 
RNCNHAN Q@A3SA RNINT AAD RNSTAT at63 READ aaa6 
REG 84a RIGARR 4191 RNGRE| ABE RUBOT Gaver 
RUBNUT APB? SENSCH @AAat SET Aras SETRIG Ba7a 
SETWIG @77" SKIP@ aga2 SKYP{ APAS SKPLE Aiy4 
SNOCHR area SNOLIN 144 STORE AAAs TAR aaao 
TAKC HY areas TaKCHR A6R TRMP{ Aaa TEMPO @ai9 
TEMPS OALA UPARRO @1AR WRITE ara? _WRYTCHR QaAFe 
WRTFOF gaen WRTINT aagse wTaSCY 43a x @a92 
XBCKAR O3B8C XCR AAG XARILF ALBA XEXNRM @Av7E 
XEXTNR @174 XLF AIAL XLFLST aiso XLIST @1@A 
XMTCHR APF 4 XTAKCH ABR X¥YBK AR AASR XX¥CRLF @A087 
XXLIST wes 
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Table D-7. PDT Builder Required Definitions 


IT DBTO 


Pointer to the internal IO expansion PDT branch table 


should be used by the PDT Builder program when a block of 
memory is required in the system. 


| ITDBT1 Pointer to the lst IO expansion PDT branch table 
| ITDBT2 Pointer to the 2nd IO expansion PDT branch table 
ITDBT3 | Pointer to the 3rd IO expansion PDT branch table | 
IT DBT4 Pointer to the 4th IO expansion PDT branch table | 
ITDMT Pointer to the DMAC expansion PDT branch table 
ITVECT Label indicating the start of the vector interrupt PDT branch 
table 
ITPDT1 Label indicating the start of the lst PDT in the system | 
SDMAEX Label on word containing the DMAC expansion flag: | 
0 - no expander | 
| 1 - expander | 
| SDBEXP | Label on word containing the number of I/O bus external ex- | 
| | pansions, value: 0-4 | | 
SINTEX | Label on word indicating that there is internal 1/O expansion | 
| 0 - no internal expansion 
| 1 - internal expansion 
IDDMAC ,_ Label indicating a word that returns control to the system 
| when no processing is required on an interrupt. This label 
may be used in PDT words 12 and 17, or may be branched ta 
| when the processing required to clear an unsolicited interrupt 
| is complete. 
JDSCAA Pointer to a system memory managed area. This pointer 


The utility requires some memory allocated permantly for the PDT and any 
other structures required by the new device. This memory block should be 
at least 18 words (more if temporary storage is required). To allocate this 
memory space, the utility has access to one of the system memory manager 
routines. The following is the calling sequence for the memory allocation 
(MRAL) routine: 


REF MRAL 
REF JDSCAA 


(listing continued on next text page) 


i 
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GET MEMORY 
FOR PDT 
STRUCTURE 
( >18 WORDS) 


USE MEMORY 
MANAGER 


ITPDT 1=LABEL 
FOR 1ST PDT; 


CHAIN THROUGH 


ae os LAST PDT HAS 
TO a OF A ZERO IN POINT— 
CHA ER TO NEXT PDT 


SET POSSIBLE 
DEVICE ID 
=254 


_CHAIN THROUGH 
PDT'S TO 
DETERMINE 


SELECT 
RESULT AS 
NEW ID 

FOR POT 


(A)130254 


Figure D-10. Addition of New PDT 


LINK NEW 
POT 
INTO CHAIN 


INITIALIZE 
1ST 18 WORDS 
OF PDT 


ADD POINTER 
TO INTERRUPT 
BRANCH TABLES 
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@LDA JDSCAA 
STA ARGI#+1 

@LDM =ARGI1 

@BRL MRAL 


ARGI DATA 3 # of arguments 
DATA $-$ 
DATA BLKADR 
DATA BLKSIZ 


BLKSIZ DATA $ - $ Size of block needed 
BLKADR DATA 0 Pointer to requested block . 


Upon return from the MRAL routine, determine if the requested block 
was given to the PDT Builder utility. If the pointer to the requested block 
(BLKADR) is zero, then the memory was not available. 


The PDT Builder utility has access to a label indicating the start of the first 
PDT in the PDT chain, To determine a suitable device I,D, number, select 
the largest, non-assigned device 1,D, (<255), Chain down through each PDT 
to determine if the selected 1,D, is assigned. The last PDT on the chain is 
identified by a 0 in the Next PDT Pointer field (WORD 0). 


After assigning a device 1.D., chain the PDT to the last PDT on the list and 
initialize the PDT according the description provided in figure D-2. Then 
place the PDT pointer in the appropriate PDT interrupt branch table as 
described earlier in this appendix. 


Once the PDT builder program is coded, assemble it using SAPG. Object 
output should be to the file (USERO1, ASMOUT). Then link it with the DX980 
operating system using DXOLE. The following job control is required to do 
this using the standard LINK procedure. Refer to Section VIII for a detailed 
description of the DXOLE utility. The following is a sample Link: 


//RUN DXOLEP DOB1=DISC1 DIN=SC; 
.. FLM = (SYSTEM, UTLFIL) RLM LLM=(3, 0, 32, 3) 


The input would then be as follows: 


BSUBSYSTEM OVLY 

BROOT MAIN, 

BSEGMENT 1 

BINCLUDE 1 object for PDT utility 


al 
ae 
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D.3 ADDING THE NEW DEVICE SERVICE ROUTINE 


Every DX980 has a standard utility, LMUPDT, that updates a memory image 
phase (MIP) of a load module generated by the DXOLE utility. LMUPDT can 
replace any of four dummy memory image phases (MIP Nos. 181, 182, 183 
and 184) in the DX980 system load module. 


Perform the following procedure to update the DX980 load module: 


1. Reference the description of the load module update (LMUPDT) 
utility in Section VII. of this manual. 


2. Perform this update procedure using the <userid> of SYSTEM. 


3. Run the standard LMUPDT. Set LUN 5 to the record input device. 
This record should be the MIP number of the system load module 
MIP to be updated. Set LUN 7 to the relative record file of the 
DX980 system load module, (SYSTEM, SYSLD). The input is as 
follows: 


//RUN LMUPDT DCON=SC FLM=(SYSTEM, UTLFIL); 
FUPD=(SYSTEM, SYSLD) 


4, Once the phase has been replaced, reload the system via the IPL 
program. 


This utility does not replace an existing module. Instead, it adds a module 
to the end of the File and changes pointers from the old MIP to indicate the 
new MIP. Therefore, after replacing the MIP several times in the process 
of testing and debugging, LMUPDT may terminate with an error indication 
such as "file full’. To prevent this problem, build a development system 
load file using the load module copy program (DXCOPY). The new file should 
be large enough to allow for expansion. Once the MIP has been tested, this 
file may be deleted. Then run.the update utility against the system file or 
disc. 
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ALPHABETICAL INDEX 
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ALPHABETICAL INDEX 
INTRODUCTION 


The following index lists key words and concepts from the subject material 
of the manual together with the area(s) in the manual that supply major cov- 
erage of the listed concept. The Reference column of the listing contains 
references to the following manual areas: 


oe a re 


@ Sections - References to Sections of the manual appear as "Section 
x'' with the symbol x representing any numeric quantity. 


® Appendixes - References to Appendixes of the manual appear as 
"Appendix y'' with the symbol y representing any capital letter. 


@ Paragraphs - References to paragraphs of the manual appear as a 
series of alphanumeric or numeric characters punctuated with deci- 
mal points. Only the first character of the string may be a letter; 
all subsequent characters are numbers, The first character refers 
to the section or appendix of the manual in which the paragraph is 
found, 


® Tables - References to tables in the manual are represented by the 
capital letter T followed immediately by another alphanumeric char- 
acter (representing the section or appendix of the manual containing 
the table). The second character is followed by a dash (-) anda 
number: 


Tx-yy 


e Figures - References to figures in the manual are represented by 
the capitai letter F followed immediately by another alphanumeric 
character (representing the section or appendix of the manual con- 
taining the figure). The second character is followed by a dash (-) 


and a number: 
P’x-yy 


@ Other entries in the Index - References to other entries in the index 
are preceded by the word "See" followed by the referenced entry. 
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Subject 


Area, Job.Extension 
Assembler, Symbolic 
Assign Command 


Batch Input Reader 
Batch Input Spooler 
Batch Output Spooler 
Binary Code 

BIR 


BIS 


BLDEDT 

Block, Physical 
Record 

Blocking 


BOS 
BPS 


Buffer, Data 
Exchange 

Buffers 

Build Edit File 


Calls, Supervisor 

CATFIL 

CATFIL Error 
Messages 

CATLOG 


CATLOG Error 
Messages 

Clear LDT Bit 
Utility 

Clear PDT Bit 
Utility 

Clear PRB Bit 
Utility 

Close 


Change l 


ALPHABETICAL INDEX 


Reference | Subject 
1, 852 Code, Memory 
8.9 Resident 
20544 
; Code, Hollerith 
S BI ’ 
eae Code, USASCII 
See BIS : 
Code, Binary 
See BOS 
Command Scanner 
T3-9 
Error Codes 
bel, 6e2; 
Command Scanner 
1.4.3, 1.423% 1; 
8.5.4.4 Command Table 
6. 1. ; 3 Compact Control 
L248. ta.ae . Vere 
Compact Mode 
8.14 ; 
Compiler, 
FORTRAN IV 
D.2.t ri 
Conditional Instruc- 
cee eee ee ae oe re Sei 
4.4.2, 2.5.3.2 nee *P 
6.1, 6.4, pariah 
1.4.3, 1.4.3.3 fee ti es mes 
1.4, 1.4.3, Cc ‘ 
iy ee er ee oe 
1.4.2 
Adee CRI 
8.14 Data Command 
So 
8 4 Debug, Program 
; DEB980 
T8-7 Delete 
8.3, 2.4.1.3, 
ite Like 
Weed Delete Record 
T8-5 Device Service 
Routine 
Device Service 
D, e e 
: on Routines, Reentrant 
Device Table 
D2e552 ’ 
Physical 
Devnam 
Do2 3e2 : 
3.4, 38.1.6 ieee E Master 
File 
Index 2 


Reference 


1.4.1, 
[4.2 
T3-8 
ne Pm 
T3-9 
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Subject 


Directory, User 


DSCA 


DSR 


DSR, Sample 


DXCOPY 
DXCOPY Error 
Messages 
DXOLE 
DXOLE Error 
Messages 


Editing 


Editor, Master File 
Directory 

Editor, Overlay 
Link 

END 

Enter File 


ERRCOD 
Error, Fatal 
Error, Logical 


Error, Severe 


Error Codes, Com- 
mand Scanner 

Error Messages 

Error Messages, 
CATLOG 

Error Messages, 
CATFIL 


Reference 
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Appendix A 


T8-5 


T8-7 


Index 3 


ALPHABETICAL INDEX (Continued) 


Subject 


Error Messages, 
DXCOPY 

Error Messages, 
DXOLE 

Error Messages, 
SAPG 

Error Messages 
Phase 1, FORTRAN 

Error Messages 
Phase 2, FORTRAN 

Error Messages 
Runtime, FORTRAN 

Errors 


Errors, 1/O 
Event 


Event Index 
Exclusive 
Execute 
Execute 1/0 


Exit DSR 

Extend 

Extended Physical 
Device Table 

Extract Mode (SMR). 


File 


File, Key Indexed 


File, Linked Se- 
quential 


Reference 


T8-15 
T 8-10 
T8-19 
T8-21 


T8-22 
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ALPHABETICAL INDEX (Continued) 


Subject Reference Subject Reference 
File, Relative 
Record 4.4.2, I/O Errors D.2.2.5 
1e85.33 I/O Manager De2. 1 
2.5.4.9, F4-2 FE 72s, Ve Ae? 
File, Saved F8-6 Include Control Card 8.5.4.3 
File Copy Be Index, Event rece 
File Features T4-1 Initiate I/O 3.5, 5.16 
File Integrity 2.5.4.10 Insert Record Tucan 
File Manager See FILMGR Integrity, File 2.5.4.10 
Utility Interactive File 
Fileid LeBe ky Editor See IFE 
2.4.1.3, Interactive Terminal 
2.4.1.4, Subsystem See ITS 
24546 IOCOM Die 2esel 
FILMGR 8.16 ISDSRI Dy 2e2ed 
Filnam 4.3, 1.8.1, ITFDIO C.1.2, FC-3 
24 Lok, ITINIT Orr ae a | 
2.5.4.6 ITPBIO C.1.3, FC-4 
Find Record fog ag ore | Itrks 2.5.4.11 
Find String Teleoe 5 ITS L.4, 2.422; 
Flags See ewe Letely 26304; 
Do Se Ce 24 2.4.2.1, Section 
3.3.2.3 7, Appendix C 
Formatted Records 3.6, ITSUPV C.1.4, 
3. 35.242; 1.4.2, 
oe Ou Zee; Gols ded, 
oa fe rae Cuda les, 
3.8.6.1 FC-5 
FORTRAN ae 23s, peeks a2, 
FORTRAN Error ICL ee . , 
Messages Phase 1 T8-21 1.8.1 aes 
FORTRAN Error Beni 2 
Messages Phase 2 T8-22 TELssquenses 
FORTRAN Error : : 
: Sample Appendix B 
pid ag ed JCL Translator 862526324 
FORTRAN IV Com- 2. 3. 3 ; 
con Ome re agetanal See 
° Jcsnam 2646252, 
GET Routine Di2.3«7 2.4.2.4 
| sw Hollerith Code T3-8 ene - — 
JLDT Blt 5580, 
T5-7 
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ALPHABETICAL INDEX (Continued) 


Job Command 


Job Extension Area 


Job Queue 
JSB 
Jsname 
Jsprty 


Key Indexed File 


Keylen 


Latency Time 

LDT Bit Utility, 
Clear 

LDT Bit Utility, Set 

LDT Word from 
Register, Store 

LDT Word to Reg- 
ister, Load 

LIBBLD 

Library 

Library Builder 

Library Control Card 

Limits 

Link Editor, Overlay 

Linkable Parts File 
Build 

Linked Sequential 
File 


Reference 
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Index 5 


Subject 

List 

List Edit Files 

List Record 

List User File 
Directory 

LMUPDT 

Load LDT Word to 
Register 

Load Module 

Load Module Update 

Load PDT Word to 
Register 

Load PRB Word to 
Register 


Logical Device Table © 


Logical Error 


Logical Record 


Logoff 
Logon 
LPFBLD 
Lrecl 
LSTEDT 
LUN 


Manager, I/O 

Master File 
Directory 

Master File 
Directory Editor 

Memory Image 

Memory Image 
Phase 

Memory Resident 
Code 


Reference 


8.3.4.1 
8.15 
lelebed 
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D.2.3.4 
F8-4, T8-12 
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ALPHABETICAL INDEX (Continued) 


Subject 


Module, Load 

MRAL Memory Allo- 
cation Routine 

Mtrks 


Nbufs 

NEW 

NEW LIB 

Normal Control Card 
Normal Mode 

NOV LY 

Nprty 

Nucleus 


Object Control Card 
OLD 

OLDLIB 

Opcodes 


OPD 
Open 


Overlay Link Editor 

Overlay Manager, 
Runtime 

Overlays, Pre- 
planned 

Overlays, Unplanned 

Pass 

Password 

PDT Bit Utility, 
Clear 

PDT Bit Utility, Set 

PDT Builder Utility 

PDT Pointer Table 

PDT Word from 
Register, Store 

PDT Word to 
Register, Load 

Phase, Memory 
Image 


Change 1 


Reference 


F8-4, T8-12 
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Subject 
Physical Device Table 


Physical Device 
Table, Extended 


Physical Record 


Physical Record 
Block 
Pool, Procedure 


PRB 


PRB Bit Utility, Set 

PRB Bit Utility, 
Clear 

PRB Word from 
Register, Store 

PRB Word to 
Register, Load 

Preplanned Overlays 

Procedure Pool 


Program Debug 
Prot 

Prty 

Prwds 

Pseudo Time Slicing 


FD-6, FD-7 Pswd 
D.2.3.4 PUT Routine 
D.2.3.4 Read I/O Bus to 
Register 
F8-4, F8-5 Read Operations 
Timeout 
Record 
Index 6 
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ALPHABETICAL INDEX (Continued) 


Subject Reference Subject Reference 
Record, Formatted a ee ee Scanner, Command rae ies) 
3.6, SCRASH D.2.2.6 
S4Sele Gy Search Control Card 8.5.4.3 
DO Oak Segment Control 
3.8.6.1 Card 8.5.4.3 
Record, Logical Aol, 44.25 Set LDT Bit Utility De2e3e2 
1.8.2, Set PDT Bit Utility Date owe 
4.4.3.7, Set PRB Bit Utility De2eaee 
2.5.4.13 Severe Error eri ee ar 
Record, Physical 451 ,-4.2;, Se ae one 
£.8-2 Share 2.5.4.3 
Record, Unformatted 3.6 STCBFL 1.8.1, 
Reentrant Device 2.4.1.4, 
Service Routines D238 922 Lia eS 
Relative Record File 1.8.3, Skip, Conditional 
4.4.2, Instruction ny Pte Pe, 
2.5.4.9, SMR 8.12 
F4-2 Source Maintenance 
Release 2.5.4.4 Routine 8.12 
Remote Job Entry See RJE Spooling 6. 2; 653, 
Replace 23352; 6.4 
Zu. As 5 STATUS 7.1.6, 7.4 
Replace Record Ube lart Status SBe-De ly 
Replace String Cede Ces 3.8.1.17 
Vetelat Step Zee 2ededs 
RJE Tee le ae 
Root Control Card 8.5.4.3 Stksiz Vai yee ars 
Routine, Device Store LDT Word 
Service Dey Dae from Register D.2.3.4 
Run Command 2.4, 2.4.2, Store PDT Word 
Ore, from Register De2s3.4 
Oi S25 Store PRB Word 
Tele 6; from Register Daze 504 
sae e's Subsystem Control 
Runtime Cees. lyk eee Card 8.5.4.3 
Runtime Overlay Subsystem Mode 8.5 
Manager 8.5.4.1 Supervisor Calls ro, Sed 
SAPG 8.9 i 
SAPG Error ei oeee 
Section 5, 
Messages T8-19 T5-1. T5-2 
Save 2.5.4.7 Een ae ee eee A 3.9 , 
Saved File F8-6 DP eee ee 
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Subject Reference Subject Reference 
SYSIN 66:25. 50 Unformatted Records 3.6 
623-365 Unplanned Overlays 8.5.4.2 
SYSOUT 6.4 Update Mode (SMR) 8.12.4. 1, 
System Console Zesees 2 12 4A 
F aga USASCII Code T3-7, T3-8 
7.1.3 User Control Block See UCB 
System Disc 1.8.1 User Directory 4.3, 1.8.1, 
System File |e 3 om <8:2 
2.4.1.4, Userid Teles, 
Let le 5 | 2.4.1.3 
System Output Utilities Section 8 
Queue 6.4 
System Table a Verify Mode (SMR) — 8, 12. 4,2, 
0.127455 
Table, Command 1.4.2 a eluene 1.8.1, 
Table, Extended 2.4.1.4 
Physical Device D.2.4, FD-3 
Table, Logical Wait 3.05 De 
Device D235; Wait Criteria List See WCL 
ry es eee Wait for I/O 5.16 
TD-3, FD-4 WcL 549.1, #5, 
Table, PDT Pointer FD-6, FD-7 F5-2 
Table, Physical Write I/O Bus from 
Device 152 Dis2 4: Register D.2.3.5 
Cyieisl, 
TD-1, FD-2 
Table, System Ls 4abs 
Task | Oe lea lear 
Ls fo 1 
Letac 
Task Control Block 685.362 
Taskid 5S 
Teleprinter Te bese 
Temp 254456 
Time es Pao Re: 
Time Slicing Pseudo C2435 
Translator, JCL Peo eiks 
Are ae 
Trknum 4.3, 
2 5c 4e 1 
UCB C.1.4, 
1.4.2, TC-2 
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